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INTRODUCTION 


This report details results of research performed during the period April 1, 1992 
through September 30, 1994 under NASA contract no. NAG-1-1407. 

The general objective of this research has been to construct a model capable of 
predicting the damage development caused by out-of-plane static loading in laminated 
graphite/epoxy composite plates. 

SUMMARY OF COMPLETED RESEARCH 

The following is a summary of research completed during the contract period: 

1) a cohesive zone model has been developed for predicting delamination 
growth in thermoset composites; 

2) the cohesive zone model has been shown to be thermodynamically 
acceptable and consistent with the continuum mechanics approach to fracture 
prediction; 

3) the cohesive zone model has been implemented to a Unite element computer 
algorithm developed specifically for use under this contract; 

4) preliminary predictions have been made with the model; 

5) preliminary experiments have been performed as a means of model 
verification; and 

6) the model predictions have been compared favorably to experimental 
results. 

The results reported above are documented in Appendix A. 



PUBLICATIONS 

The following papers have been completed under the terms of this contract: 

1. Lo, D.C., Allen, D.H. and Harris, C.E., "Modeling the Progressive Failure of Laminated 
Composites with Continuum Damage Mechanics," Fracture Mechanics: Twenty-third 
Symposium, ASTM STP 1 189 . Ravinder Chona, Ed., American Society for Testing and 
Materials, Philadelphia, 1993, pp. 680-695. 

2. Costanzo, F. and Allen, D.H., "A Continuum Mechanics Approach to Some Problems in 
Subcritical Crack Propagation," International Journal of Fracture . Vol. 63, No. 1, pp. 27- 
57, 1993 (also CMC Report No. 92-19, October 1992). 

3. Lo, D.C., and Allen, D.H., "Modeling of Delamination Damage Evolution in Laminated 
Composites Subjected to Low Velocity Impact," International Journal of Damage 
Mechanics , Vol. 3, No. 4, pp. 378-407, October 1994. 

4. Costanzo, F., and Allen, D.H., "A Continuum Thermodynamic Analysis of Cohesive 

Zone Models," accepted for publication in the International Journal of Engineering Science, 
1995. “ 

5. Lo, D.C., Costanzo, F., Zocher, M.A., and Allen, D.H., "Modeling of Damage Evolution 
in Thick Laminates Subjected to Low Velocity Impact," in Mechanics of Thick 
Composites , AMD-Vol. 162, Y.D.S. Rajapakse, ed., American Society of Mechanical 
Engineers, New York, pp. 137-150, 1993. 

6. Lo, D. and Allen, D.H., "Modeling the Damage Evolution in Laminated Composites with 
Delaminations Containing a Damage Zone," Damage Mechanics in Composites 1994 . 
AMD-Vol. 185, D.H. Allen and J.W. Ju, eds., American Society of Mechanical 
Engineers, pp. 57-72, 1994. 

7. Hams, C.E., Coats, T.W., Allen, D.H. and Lo, D.C., "Progressive Damage Analysis of 
Laminated Composites due to Tension Fatigue," submitted for publication in the 
proceedings of the 2nd Pacific International Conference on Aerospace Science and 
Technology — 6th Australian Aeronautical Conference, Melbourne, Australia, 

March 20-23, 1995. 

8. Lo, D.C., Costanzo, F., and Allen, D.H., "Delamination Evolution in Composites Using a 
Cohesive Zone Model," submitted for publication in the proceedings of the International 
Conference on Computational Engineering Science (ICES ’95), Honolulu, Hawaii, July 
30-August 3, 1995. 

9. Lo, D.C. and Allen, D.H., "Damage Evolution in Viscoelastic Composites with 
Delaminations Containing a Process Zone," submitted for publication in the proceedings of 
the Symposium on Dynamic Behavior and Response of Composites to be held at the 1995 
ASME Winter Annual Meeting (International Mechanical Engineering Congress and 
Exposition), San Francisco, California, November 12-17, 1995. 



PRESENTATIONS 


The following presentations have been given under the terms of this contract: 

1 . Costanzo, F. and Allen, D.H., "A Thermodynamic Analysis of Propagating Subcritical 
Cracks with Cohesive Zones," NASA Langley Workshop on Computational Methods for 
Failure Analysis and Life Prediction, Hampton, Virginia, October 1992. 

2. Lo, D.C., Costanzo, F., Zocher, M.A., and Allen, D.H., "Modeling of Damage Evolution 
in Thick Laminates Subjected to Low Velocity Impact," The 1 st Joint Mechanics Meeting of 
ASME/ASCE/SES — MEET'N'93, Charlottesville, Virginia, June 1993. 

3. Costanzo, F., and Allen, D.H., "A Continuum Thermodynamic Analysis of Cohesive 
Zone Models," 3 1st Society of Engineering Science Conference, Texas A&M University, 
October, 1994. 

4. Lo, D. and Allen, D.H., "Modeling the Damage Evolution in Laminated Composites with 
Delaminations Containing a Damage Zone," ASME Winter Annual Meeting, Chicago, 

1994. 

5. Allen, D.H., "Delamination Evolution in Composites Using a Cohesive Zone Model," 
NASA Langley Research Center, Hampton VA, December 1994. 

6. Lo, D.C., and Allen, D.H., “Damage Evolution in Laminated Polymer Matrix 
Composites,” ASME Summer Annual Meeting, UCLA, June, 1995. 

7 . Lo, D.C., Costanzo, F., and Allen, D.H., "Delamination Evolution in Composites Using a 
Cohesive Zone Model," International Conference on Computational Engineering Science 
(ICES ’95), Honolulu, Hawaii, July 30-August 3, 1995. 

8. Lo, D.C. and Allen, D.H., "Damage Evolution in Viscoelastic Composites with 
Delaminations Containing a Process Zone,"ASME Winter Annual Meeting (International 
Mechanical Engineering Congress and Exposition), San Francisco, California, November 
12-17, 1995. 



DISCLOSURES 


The computer code entitled DANCOM has been written as a part of this 
contract. A hard copy of this code is included in Appendix B. 

DISSERTATIONS 

The following Ph.D. dissertations have been completed under funding provided 
by this contract: 

1. Costanzo, F., A Continuum Thermodynamic Model of Crack Growth with a 
Cohesive Zone, Texas A&M University, December, 1993. 

2. Lo, D.C., Damage Evolution in Laminated Composites with Delaminations 
Containing a Cohesive Zone, Texas A&M University, August, 1995. 



APPENDIX A 



David ( David //. Allen , 1 2 and Charles /-. Hams' 

Modeling the Progressive Failure of Laminated 
Composites with Continuum Damage 
Mechanics 


Kid* hRliNCF Lo, D. C., Allen, D. H.,and Harris, C. E., “Modeling the Progressive Failure of 
Laminated Composites with Continuum Damage Mechanics," Fracture Mechanics: Twetuv- 
7 hire! Symposium. A STM STT / IS9. Ravindcr Chona, Ed., American Society for Testing and 
Materials, Philadelphia, 1993, pp. 680-695. 

ABSTRACT: A continuum-damagc-mcchanics-bascd model is proposed for the analysis of the 
progressive failure process in laminated composite structures. The laminate's response is deter- 
mined by nonlinear constitutive equations that account for each type of matrix -dominated dam- 
age through strain-like internal stale variables. Evolution of these internal stale variables is gov- 
erned by the damage-dependent ply-level stresses. The updated damage stale and the ply-level 
stresses arc then employed in the local-global evaluation of component failure. This model is 
incorporated into a finite-element analysis code to facilitate the examination of structures with 
spatially varying stress fields. The stress and damage distribution obtained from the analysis at 
various points in the loading history provide information about the progression of events leading 
to the failure of the component. The progressive failure of fatigue-loaded rectangular crossply- 
laminatcd plates containing a centered circular cutout has been examined with the model. Most 
of the predicted damage is localized in a region near the cutout. Rather than propagating out- 
ward, the damage intensifies in this region until failure occurs. The feasibility of modeling the 
evolution of each type of subcritical damage is demonstrated with the current framework. This 
ability to simulate the progressive failure process at this level of detail will assist in the design of 
safer and more efficient composite structures. 

KEY WORDS: laminated composites, progressive failure, matrix damage, continuum damage 
mechanics, finite-element analysis, damage accumulation, fracture mechanics, fatigue 
(materials) 


The accumulation of subcritical damage in laminated composites is of major concern espe- 
cially in light of the increased use of these advanced material systems in critical engineering 
applications. Although in some instances distributed damage can retard the failure process in 
a component by redistributing load away from the high stress region, it is still the primary 
contributing factor to the eventual catastrophic failure. While efforts can be made to delay the 
development of damage by modifying the laminate stacking sequence or the component 
design, distributed damage is present throughout the life of the component. Even before enter- 
ing service, damage is inflicted on the component by the manufacturing process. 

To produce safe and reliable laminated composite components, it is essential to know how 
such damage afreets the performance and failure of these components. Experimental 
approaches are not economical due to the large numbers of parameters that can be varied by 
the designer. Thus, much effort has been placed on the development of analytical methods to 
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,l ' 0tlCS ' l ' ,U ' s<l;,u ' l,;isc 'I'*' accomplish Hus task requires a thorough knowledge 
ill is failure pmccs^ IS, ' CS<> '‘"H mated composites as well as the ability to analytical I y model 

nicn l |Xr r0fi | l | C ^ ,V 'i " ;llL ‘ r ° oflhc l;,,lurc process in laminated composites has been well docu- 
in tc pu> is ted literature [ 1-4]. This process involves the accumulation of several 
ypes of damage. Generally, the first type of damage to appear is matrix cracking rejons o. 
ig t stress gradients. Along the free edges and at the intersection of matrix cracks from adja- 
cent plies, dclam, nations arc propagated by large intralaminar stresses. The stress redistribu- 

Ihc’simrn C fr ° m ’T ' W ° ° f dama 8 c ln lurn a ss.sl in the development of damage in 

he surround, ngarcas. As matrix-dominated damage accumulates, the loads arc transferred to 

the plies with fiber orientation aligned closest to the direction of the applied loads The bonds 
between the fibers and matrix are fractured in these plies. This isaccompanied by the fracture 
of the fibers Since the reinforcing fibers arc the pnmary load-carrying component of the lam- 
inate, thetr fracture signifies the imminent failure of the structure itself. This failure process is 
m contrast to that observed in conventional homogeneous materials where failure can 
traced to the propagation of a single flaw. In composites, each flaw in the laminate will not 
grea y affect the overall response of the structure; instead, it influences the development of 
other flawsJt ts the cumulate effect of the subcritica. damage that results in the failure of the 
“ THUS ’ a . n . y atte " lpt 10 pred,ct ‘he residual strength and life of laminated composite 
of the mateTal 8C aCCUmulation process as we " a * its effect on the response 

Most analyses have not adequately accounted for this history-dependent subcritical damage 
accumulatton process. Some linear elastic fracture mechanics based approaches replace the 

t theTrainTT f 5 '" 8 ' 0 Cqmvalcnl ^acrocrack [5.6]. When the stress intensity factor 
nergy release rate is equal to the fracture toughness, failure occurs Other 
approaches calculate the stress field with the assumption of no accumulated damage To com- 

froT he s; StrCSS rediStnbuti °"’ lhe fa "- c criteria are either evaluated at a distance awTy 

of A C ? nCentrat ° r r ' ^ eva,uated usin 8 the Presses that are averaged within this 
gton 1 7 9], A limitation of these approaches lies in the determination of the equivalent 
macrocrack stze or the evaluation zone. Analytical expressions are not provided to relate the 
“ age ‘° lhe Cquivalenl geometric properties. Instead, these values are selected 

uororZh men, f and res,ricKd <° *">"« eeome. riK „ e 

h stones [10]. Often these values that are supposed to describe the evolving damage stale are 
assumed to be constant throughout the failure process. Furthermore in light of the^ncreasine 
* W1 ‘h damage accumulation, these indtrect approaches to the accoSg of 
subcnt.cal damage do not provide sufficient information to predict accurately the evolufion 
the damaged region and the eventual failure of the component 

Ply discount methods have also been used in conjunct.on with the aforementioned 

rcfUvTth” l °f °f! lhC StfCSS red,stnbut,on process, but the abrupt loss of stiffness docs not 
effnrt h hC 8rad . Ua de g radatlon ‘ h a‘ occurs with subcritical damage accumulation Recent 
ba mfr CX P P ' C ' m0d , e ' Cd CaCh m ,hC dama8Cd "*'<>" »° capture the conditions!^ 

damagf ftes H S o CUy ' are availab * for idealized component geometries and sparse 

meThnH h ”° WCVC i r ' numencal computational approaches such as the finite-element 
stress f^ldf P mof* ' dama8e configurations [11-16] To obtain accurate 

in 21 f I by a large number ofclcments. The stress fields arc then used 

to uifmfif C , C r°T l ° CrmmC UlC in,tia " 0n and Propagation of each flaw. I, is necessary 

unam. «"odd as the damage state evolves. This type of analysis uXr- 

atcly can rapidly become computationally untenable since a component may accumulate 
any interacting Haws before failure occurs. 

The requirement for information concerning the subcritical damage accumulation and the 
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dcMiv loi a tradable analysis scheme have prompted (he use of (lie eonliiHiimi -damage - 
mccfiamcs approach m the analysis of progressive failure in laminated composiie structures 
I /7 --’"l n,c Sl/e : " ul distribution of (he subcritical damage found in laminated composiles 
enable (he selection ol a represeniali vc volume element (R V 6) of material that is small in scale 
relative to the structure, but is of sufficient size to characterize the damage contained within 
by statistically averaged quantities. These averaged quantities, known as internal stale vari- 
ables. descrtlie the physical attributes ol each mode of damage. The resulting effects of the 
distributed damage are then reflected in the constitutive relationship through the internal state 
variables. I herelore. a medium containing a multitude of small internal cracks can be ana- 
lyzed as a continuum without internal boundaries. Due to the nonlinear nature ol the consti- 
tutive equations, this type ol analysis is approached numerically by methods such as finite 
elements. I his homogenization ol I lie subcritical damage eliminates the task of modeling indi- 
vidual Haws, but since the homogenization is performed at a scale that is small with respect to 
the structure, the results arc ol sufficient resolution to provide an indication of the damage 
accumulation and stress redistribution. 

A progressive failure model incorporating the continuum-damage-mcchanics approach to 
model-matrix-dominated damage has been under development by the authors [ 2l-26\ The 
model s capability to predict the development of matrix cracks under tension-tension fatigue 
loading conditions is used to examine the development of damage in composite laminates. 
The information obtained is then used to predict the failure of the component. 


Progressive Failure Model 

The proposed progressive failure model consists of three components. The first is the non- 
linear constitutive relationships derived using continuum damage mechanics. Next is the 
structural analysis algorithm incorporating the aforementioned constitutive relationships, 
and, finally, failure criteria to indicate the catastrophic failure of the structure. Due to the pro- 
gressive nature of the failure process, these components are employed in a time-stepping man- 
ner to evaluate the stress state and damage evolution throughout the loading history. The 
results obtained at each step arc then used to update the model for the next step in the loading 
history. The following sections will first present the essential aspects of each component of the 
progressive failure model. These components will then be assembled in an analysis scheme to 
form the progressive failure model. More in-depth discussions on these components can be 
found in the published literature [21-26] 


Damage- Dependent Constitutive Relationships 

The damage-dependent constitutive relationships form the foundation of this progressive 
failure model. These relationships determine the stress-strain response in the presence of inter- 
nal damage as represented by the internal state variables. Within the framework of continuum 
damage mechanics, the rate of change of these internal slate variables is calculated from his- 
tory-dependent damage-evolution laws. Thus, in the course of the analysis, both the changes 
tn the stress slate as well as in the damage stale are determined. The probable location and 
mode ol failure can then be inferred from these results calculated at sequential points in the 
loading history. 1 he principles of continuum damage mechanics further require the selection 
of local volume elements in which homogenization is performed. For matrix cracking. this 
volume can be specified at the ply level. This selection of the local volume serves as the logical 
building block in this analysis. 1 lie model of a composite laminate can then lie formed by 
assembling these building blocks together, bv also developing damage evolution laws and fail- 
tue (unctions to be applicable at the ply level, the formulation becomes independent of the 
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Limmjlioii iynnu:iiv. I he relative scale and location ol occm fence ol delanunahon damage 
preclude ns specification al the ply level; it is instead introduced at the laminate level i o main- 
tain the geometnc independence ol the model, a set ol damage -dependent lamination equa- 
tions with mod 1 1 tea lions to accommodate the e Meets ol the dclam mat ion da mage is employed 
1 he kinematic eliects ol the matrix cracks and delammations are quantified by the internal 
stale variables used in this model. Matrix cracking is measured by the volume averaged dyadic 
product ol the crack lace displacement, and the crack face normal, n r as proposed by Vak- 
ulenko and Kachanov \27\ 


<*'! = 77 ( I ) 

wlierc o'/ is the second-order tensor internal stale variable, V, is the local representative vol- 
ume in the deformed slate, and S is the crack surface area. This product represents die aver- 
aged kinematics of the crack faces and can be interpreted as additional strains incurred by the 
material as a result of the internal damage. Since the internal slate variable is a second-order 
tensor, it is capable of modeling all three kinematic modes of crack face displacement. From 
micromechanics, it has been found that the effects of the matrix cracks can be introduced into 
the ply-level constitutive equations as follows [25] 


{°l) = [Q){c l ~ a ;'} ( 2 ) 

where a L arc the locally averaged components of stress, [Q] is the ply-level transformed stiff- 
ness matrix, c ; arc the locally averaged components of strain, and or/ r arc the components of 
the internal slate variable for matrix cracking. Since interlaminar delaminations arc not sta- 
tistically homogeneous through the laminate thickness, their effects cannot be homogenized 
at the ply level like the matrix cracks. The effects of the delamination are modeled instead 
using an R VE at the laminate level. The presence of intcrplydela mi nations in a laminate intro- 
duces jump discontinuities in the displacement and rotation of the normal line to the mid- 
plane of the plate. The Kirchhoff-Love hypothesis is thus modified to account for these dis- 
continuities at the damage interfaces as shown here [29] 


w(jcj*,z) = u°(x,y) - z[(3° + H(z - \ + ff(z ~ Z;)u f / (3) 

u(x,y,z) — v 4 ’(x y y) — z[i f -h H(z — z,)t?H T H{z — z,)u" ( 4 ) 

vv(a\j>,z) = \S(x,y) + H(z - z>? (5) 

where i(\ v\ and arc the midplane displacements; 0° and if* are the ply rotations; 

■. and ic f - , arc the ply jumpdlSplaccmentduetodelamlnatlon;/3, ^, and 77 ,° arc the ply jump 
rotations due to delaminalions; and H{z ~ z^) is the Heavyside step function. These displace- 
ment equations are averaged over a local area to produce locally averaged displacements. The 
resu l is arc then used 1 n the calculation of the average strains via the pi y level co nsti luti vc rela- 
tionship shown in Eq 2. Integrating these ply stresses through the thickness of the laminate will 
produce the following damage-dependent lamination equations 


(A'} = 7 (<2kU 

A - I 


-7 IQMzt - + 7 l&Ut« w }. 

A - I 1 - \ 

<1 n 

+ 7 - r. - 7 ICK(=« - ,M«"K (6) 
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( A/ ) -i Mr:;) >;[(;| 1 (r t ' ,){.;•} i >' \o x \. 

“ L < s k - 1 ; ;; 

<j n 

' >-K>«Ur; - c; ,){</’). - \ lC/|.(ri :[ ,){«"}» (7) 


where N is (he component of (he resultant force per unit length; M is the component of the 
resultant moments per unit length; n is the number of plies in the laminate; c‘/ and k'I arc com- 
ponents of the midplanc strains and curvatures; [(?] t is (he clastic modulus matrix for the k' h 
ply in laminate coordinates; {«*'}* contains the matrix cracking internal stale variables for the 
k"' ply; d is the number of delaminated interfaces; and {(),), arc the weight -averaged stiffness 
matrices of the sublaminatc associated with the ; ,h delaminated interface (26]. This sublami- 
natc is composed of the ply directly above and below the delaminated interface, l, is the thick- 
ness of this sublaminatc. {« 0 }, arc components of the dclaminalion damage internal stale vari- 
able, which includes components for crack face displacements and rotations, for the / ,h 
delaminated interface. These delamination internal slate variables arc defined in a similar 
manner as for matrix cracking. However, the local volume is now specified at the sublaminatc 
level. The effects of the internal damage are accounted for by the last three terms on the right- 
hand side of Eqs 6 and 7, the first two representing the contribution from delamination and 
the last term from matrix cracking. These terms can be viewed as “damage induced” forces 
and moments whose application to the undamaged material will produce midplane strain and 
curvature contributions equivalent to those resulting from the damage-induced compliance 
increase. If no damage were present, these equations would reduce to the elastic lamination 
equations. 

The internal state variables for the matrix cracks and delaminations can be determined 
either from experimental data [22,28] or damage evolution equations [J0], The former 
method requires prior knowledge of the damage state in the structure. Since the objective of 
this research effort is to predict the accumulation of damage and its effect on the structure, 
damage evolution equations are used in this model. These relationships describe the rate at 
which the internal state variables are changing in the RVEand are functions of only the current 
state at each locally averaged material point. The damage state at any point in the loading 
history is then found by integrating the damage evolutionary laws. For symmetric crossply 
laminates subjected to uniaxial ioading conditions, the predominant type of damage is the 
Mode I opening intraply matrix crack. It is assumed that all the crack surfaces are oriented 
perpendicular to the plane formed by the ply. Thus, matrix damage in each ply can be char- 
acterized by only one component of the damage tensor. This component, «£, is associated 
with the displacement of the crack face in a direction parallel to the crack face normal. Based 
on the observation that the accumulation of matrix crack is related to the strain energy release 
rate, G, in a power law manner [31], the authors have proposed the following evolutionary 
relationship for this component of the damage tensor when the load is applied cyclically ( J0] 


dS 


kG”dN 


( 8 ) 


where the term da^JdS reflects the changes in the internal state variable with respect to 
changes in the crack surfaces. This term is calculated analytically from a relationship describ- 
ing the average crack surface displacements in the pure opening mode (Mode 1) for a medium 
containing alternating 0° and 90° plies (25). It has been found that for typical brittle graphite/ 
epoxy material systems da^/dS varied little with damage when subjected to fatigue at constant 



LO LI Al. ON CONTINUUM DAMAl'.l MLCHANICS 


685 


, C k \ dV | l 1 l,C,0lo,C - ,s;lssmu ^ 1 lo he independent of H.e numlK. „f.nal,K cracks 

‘ . ,y ' “"•'PP-ox.mat.on leaves the component of (he la. -held l,» ad Manual to (he crack 

sm ace and the layer llnckness as the determining factor Tor d.c value of /,/.V (i is || K - strain 
cne.gy release rale calculated from .he ply-level damage-dependent stresses The material 
parameters. A and //. are phenomenological in nature and must Ik- determined from exper, 

90 I’ AM/15 02 V "r? /' m ° dC 1 1 ’ * and " ar ° dCtCrmmcd (mm History of a O,/ 

M S Mp f’ graphitc/epoxy lammale fati E uc loaded at a maximum stress amplitude of 

found mile'" *' ^ raU ° °' ° ' “ rCPO ' 1Cd by Chou cl ;i > ( ^ I- The parameters have been 


k = 4.42 


6.39 


( 9 ) 


for this material system. Because k and « are assumed to be materia, parameters the values 

ThkhTsT T T K m " iatC SlaCk,n8 SCqUCnCC ShOUld ,>C val,d for othcr laminates as well 
has been found to be accurate for crossply laminates with varying numbers of transverse 

plies and stress amplitudes [32], Further investigation of other laminate stackmg sequences 

wdl be required to determme whether this assumption is vahd for noncrossply layups Since 

he interactions w.th the adjacent pl.es and damage sites are implicitly reflected in the calcu- 

atton of the p y-level response through the laminatc-avcragmg process, Eq 8 is not restricted 

to a particular lammatc stacking sequence. Thus, both the transverse matrix crackingand axial 


Structural Analysis Algorithm 

m Jm r" C °T: ale th u dama ^ e P end ent laminate constitutive relationship into a finite-ele- 
ment formulation, the damage-dependent force and moment resultants Eqs 6 and 7 are sub 

sequence ts taken to s.mphfy the formulatton. This assumption produces a zero coupling stiff 
ness matnx and results in uncoupled governing differential equations. These governing differ- 
n ta equa ions are integrated against variations in the displacement components to produce 
ren^ ° f * he damage-dependent laminated plate equilibrium equations The cur- 

f ?• m : plane displacements, one out-of-plane displacement, and two out-of- 
P tons. This element is formed by combininga constant strain triangular element and 

nonconform.ng plate bending element. Corresponding displacement interpolation func- 

thTfnir SUbSt,tUt ? d K mt ° the weak forniulati on of the plate equil.brium equates to produce 
the following equilibrium equations in matrix form [ii] 


K" 

K 1 ' 

0 


K n 

K u 

0 


0 

0 

K” 




+ 


1 M 

r 2 

1 i w 

nr * 

1 Ai 


F x 

r D 

n 

n 


( 10 ) 


rion (^) is J" C ‘ Cn C " l f Sl,frnesS matnx ’ W contains the out-of-plane displacement and rota- 
ors ’ 1 n r applied force vector, and {F„> and (F n} are the “damage-induced” force vec- 
tors resulting from matnx cracking and dclamination, respectively. The effects of the internal 

wtecTs a ?!^ r ° n tHC T 8lU ' ha r d S ' dC ° f ,hC Cqu " ibrium equations as damage-induced 

matrices each time .7^ Chm ^ MC$ lhc nccd lo recalculate the elemental stillness 

matrices each time the damage stale evolves, thus saving much computational time. 



NtACiuHi mechanics iwi-;niy miiu) symposium 


t)8() 


/ tiilut (• ( i net hi 

1 Ik oh|ci li\c ol the I a 1 1 u i c ci ilcna is to evaluate the sti ucluial tulcgniv ol the component 
usnu; l lie xui i cm slicss and damage slates calculated by the model. 11 1 is emails ihe exanuna- 
1,011 ol ,llc ,in,LMC process ai both the local material level and the global structural level because 
the lailuie at one mulct tal point may create stress redistributions that can cause simultaneous 
lailutc in the sut rounding regions. I ypical failure during tensile conditions is signaled by fiber 
I incline in the pimopal load carrying plies ol a multidirectional laminate This is evaluated 
In the lollowing criterion 


C " ” ( 11 ) 

wlieic c, , is the average ply level strain m the fiber direction and e,, r is the tensile failure strain 
measured from a unidirectional laminate. After failure has been declared, the ply no longer 
can support additional load. The current analysis considers this condition as the failure of 
component. In situations where the failure process is permitted lo progress beyond the first 
fiber failure, the stability of the failure process is evaluated at the global level. The stress stale 
for the entire structure with the updated damage is recalculated using the current loading con- 
dition. Local laminate failure is evaluated once again in the structure. If it has been determined 
that additional laminate failure has not occurred, then the failure process is stable and the 
analysis is continued to the next increment of loads. On the other hand, new local laminate 
failure would indicate an unstable fracture process and signals the initiation of global failure. 
This local-global procedure forms the failure evaluation of the progress failure model. Other 
modes of failure can be included in the evaluation by the application of the appropriate criteria 
at the local level of the analysis. 


Progressive A nalvsis Scheme 

The aforementioned components are assembled together as shown in Fig. 1 to form the pro* 
gressivc failure model. In a typical analysis, the applied loads and initial damage state are 
entered into the damage dependent constitutive relationships to determine the effective dam- 
age-induced forces. These resultant damage forces along with the applied forces arc used in the 
structural analysis algorithm to calculate the global structural response. The resuitsare once 
again sent to the constitutive relationships where the local stress/strain response is obtained. 
The changes in the damage state are also determined at this stage by the damage evolutionary 
relationships using the local ply stresses. The failure criteria are evaluated locally with the 
updated damage state; if failure has occurred, global failure is examined. Next, the entire pro- 
cess is repeated for the next load step. This model is coded into a computational program to 
facilitate the analysis of engineering structures. 


Numerical Results and Discussion 

The proposed progressive failure model is employed lo examine the residual iifeofacrossply 
laminated plate subjected to fatigue loading conditions. A circular cutout is placed at the cen- 
ter of the plate lo produce stress gradients that are conducive to the growth of subcritical dam- 
age. This configuration is similar to those used lo model fastener holes found in many com- 
posite structures. Thus, by examining how the stresses are redistributed and damage 
accumulates near the fastener hole, information can be gathered to determine the merits of a 
particular design. The dimensions of the rectangular plate used in this study are 25 A by 50.8 
mm. The circular cutout has a diameter of 6.4 mm. A cyclic tensile load is applied at the nar- 
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FIG . I — Progress! ve failure analysis methodolog v. 


row end of the plate. Due to symmetry about the length and width of the plate, the finite- 
clement mesh represents a quarter of the plate. It is discretized into 90 three-node triangular 
elements, as shown in Fig. 2. The plate has a (0/90 2 ] s laminate slacki ng sequence. The material 
properties, shown in Table I, for AS4/3501-6 graphitc/epoxy have been used in the calcula- 
tion. The fatigue load is applied at a cycle ratio of 0. 1 and follows the maximum stress history 
shown in Fig. 3. The first 50 cycles consist of the ramp up to the test load. This is done in pan 
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FIG. 2 — Finite-element mesh of plate with circular cutout. 


to control the incremental changes to the damage state during the initial portion of the loading 
history. In this simulation, matrix cracking is assumed to be the only form of damage mode 
and because of the crossply stacking sequence, component failure is assumed to occur at the 
first fiber fracture in the 0° plies. 

The predicted accumulation of matrix crack damage in the 90* plies of a panel loaded at a 
maximum stress of 184.0 MPa is shown in Fig. 4. The amount of damage is expressed in terms 


TABLE l — Ply-level material properties for AS4/3501-6 used in 
simulation. 


Hu 

i : 22 

12 

"«2 

v 2 \ 

f ply 
^ t lent 

k 


146.9 GPa 
10.4 GPa 
4.3 GPa 
0.26 
0.42 

0.128 mm 
I 5 000 ^/strain 


n 


Growth Law Parameters 


4.42 

6.39 
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Load Cycles, N 

FIG. 3 — Maximum fatigue stress history used in simulation fR = 0.1) 


of the volume-averaged crack face displacement as defined by Eq 1. At the end of die load 
ramp up, matrix damage has developed throughout the plate. The greatest damage being 
located near the notch. This region of high damage gradient expands outward after 1550 
cycles. The amount of damage also increases in the rest of the plate. However, after 7550 
cycles, much of the damage evolution emanates from the region adjacent to the notch. This 
shift in the damage evolution reflects the load redistribution occurring inside the laminate The 
corresponding axial stress history for the 0* plies is shown in Fig. 5. The effects of the damage 
growth that occurs between 50 and 1550 cycles can be seen by the increase in stress near the 
notch. The interesting changes in the stress distribution beyond this point in the loading his- 
tory are not discernible from the stress contour plots; but examination of the numerical data 
indicates load transfer taking place in a confined area adjacent to the notch. This decelerated 
change in the stress distribution is in part due to the small fraction of the total load initially 
earned by the 90° plies. Any loss in the load carrying capability in the 90° plies will translate 
to small changes in the stress state in the 0° plies. The accumulation of damage further reduces 
the load available for transfer. However, a sufficient amount of load is transferred to the 0° 
plies to cause fiber fracture and component failure after 7634 cycles. During the life of the 
plate, the greatest accumulation of matrix damage is located at a region adjacent to the notch. 
Rather than expanding outward, the damage intensifies in this region until first fiber failure in 
the 0° plies. This behavior has also been predicted by Chang et al. { 34 } in crossply laminates 
subjected to monolomcally increasing tensile loading conditions. 

The predicted cycles to first fiber failure at various maximum fatigue stress levels arc shown 
in Fig. 6. At the higher stresses, the load redistribution progresses rapidly from the formation 
of the high-damage gradient zone to the failure of the first fiber. This indicates a sufficient 
amount of energy was available after the formation of this zone to produce this result. At lower 
applied stresses, a large portion of the available energy is expended during the formation of the 
damage zone. Therefore, the intensification stage spans over a relatively high number of 
fatigue cycles. Die increase in the number of cycles to failure from decreasing the applied stress 
at the lower stress levels is large. Decreasing the applied stress from 185.7 to 183.4 MPa 
increases the cycles to failure by more than 100 000 cycles. A possible cause for this response 
is related to the amount of load redistribution taking place inside the laminate. Recall that 
these predictions are based on the assumption that matrix cracking is the only type of matrix- 







7550 cycles 

FIG. 5 — Axial stress distribution in the 0' plies of a plate fatigue haded at a maximum stress at IS4U MPa 
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Cycles to first fiber failure 

FIG. 6 Predicted cycles to first fiber failure of fatigue-loaded plate with a circular cutout. 


dominated damage present. The inclusion of delamination damage into the analysis will alter 
the stress redistribution and damage accumulation. Its effects will be most apparent at the 
lower stress levels where the delamination damage can initiate and accumulate before fiber 
failure occurs. The number of fatigue cycles required for first fiber failure at these stress levels 
will decrease due to the additional source of load redistribution. Since the stress redistribution 
and damage formation are coupled, additional analysis and experimental verification would 
be required before any quantitative conclusions can be drawn about effects of including 
delamination damage. However, it would enable the current progressive failure analysis 
framework to capture a more complete picture of the complex interactive processand enhance 
the model predictions. 

The type of information obtained from the simulation could be potentially very useful to 
the designer or analyst. The ability to locate critical regions and to track the evolution of dam- 
age in these regions would allow designers to create safer and more efficient components. Alter- 
nately, a damaged region detected in a component can be characterized and then entered into 
the model to determine its effect on the residual responses so that it can be removed from 
service at the appropriate time. The proposed model demonstrates the feasibility of the con- 
tinuum-damage-mechanics approach. Further developments are in progress to achieve the 
capabilities for analyzing more complex damage states. 

The current analysis assumes component failure to occur at the first fracture of filters in the 
principal load carrying plies. 1 his assumption is valid in narrow specimens where there is not 
sufficient area to redistribute the tensile loads within these plies. In wider specimens, global 
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introduction ol hhe. Iracture internal state variables and growth laws are future ohjectives ol 
the i exeat cl, cllort. I his will he followed by the modeling of compressive lailure modes. 


Conclusion 

The use of continuum damage mechanics in the progressive failure model provides an clf.- 
c.ent means ol modeling distributed damage found in laminated composites. Gael, type of 
damage is represented by a set of strain-like internal slate variables. The internal state variables 
evolve with the accumulation of damage at each material point. These values are predicted by 
damage evolution relationships that arc functions of the current stale of the material including 
all the damage present. Since the formulation permits the gradual accumulation of damage 
and the concurrent growth of difl'crcni damage types, the analysis reflects the events occurring 
inside the laminate. The current framework operates in a time-stepping manner where the 
stress distribution and damage accumulation predicted at each step arc employed in the local- 
global structural integrity evaluation. This ability to simulate the progressive failure process 
will enhance the design and maintenance of laminated composite structures by reducing the 
dependence on experimental support. 

Even though continuum damage mechanics is suited for the examination of damages that 

aredistributcd in naturcand fracture mechanics is applicable for the evaluation of well-defined 

macrocracks, there arc situations that require the incorporation of the two approaches. One 
such case is the existence of a sharp notch in a composite laminate. In this instance a damage 
zone containing many distributed microcracks will develop ahead of this notch when load is 
applied. To account for the stress redistribution in this zone, continuum mechanics can be 
used to determine the state of the material. These results can then be evaluated on the global 
scale using fracture mechanics. Thus, rather than choosing one method over the other they 
should be viewed as integral units in the failure analysis oflaminated composite structures. 
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Abstract. The results of the so-called energetic approach to fracture for the cases of a sharp crack without and with a 
cohesive zone are briefly reviewed with particular attention to the crack tip singularity analysis and to the issue of 
energy dissipation due to crack propagation. The case of a crack with a cohesive zone removing all thcrmomcchanical 
singularities is then further analyzed, focusing the attention on the question of the thermodynamic admissibility of 
subcritical crack growth, and on some of the hypotheses that lead to the derivation of subcritical crack growth laws. A 
two-phase cohesive zone model for discontinuous crack growth is presented and its thermodynamics analyzed, followed 
by an example of its possible application. 


1. Introduction 

Subcritical crack growth (SCG), under both general and cyclic loading conditions, is a 
phenomenon that has been receiving more and more attention during the last forty years. 
Starting with early investigations mainly on fatigue in metals [1-9], current research covers a 
wide variety of materials, especially those such as polymers [9-13] and ceramics [14] that are 
becoming important in the fabrication of composites. The phenomena of interest also include 
phase transformation toughening and discontinuous crack propagation in polymers, R- 
toughening by crack bridging in ceramics and interface evolution and degradation both at 
fiber-matrix interfaces in fiber reinforced composites and at the lamina-lamina interface in 
laminated composites. In all these phenomena experimental research has shown the existence 
of a zone, often referred to as a cohesive zone or damage zone located at the crack tip, whose 
special behavior relieves the stress and/or strain singularity that otherwise would be predicted 
at the crack tip of a sharp crack and allows for some inelastic behavior to occur. 

From the theoretical standpoint, the problem is that of relating crack growth to the load 
history. In this sense, fundamental understanding has been provided by the energetic approach 
to fracture [15-32] that showed [15-19] how subcritical crack propagation is strictly related to 
the rate of energy dissipation in the vicinity of the crack front, although the distinction between 
the surroundings of the crack, generically referred to as a process zone , and the rest of the body 
is often unclear. Such an ambiguity leads also to inconsistencies in the development of a 
thermodynamic theory of fracture. In fact, several theoretical studies in the continuum 
thermodynamics of fracture, especially those by Cherepanov [15, 21] and Rice [22-23] and, 
more recently, Gurtin [24-25] and Nguyen [27-32] have shown that, independently of the 
global or local (around the tip) constitutive assumptions, a sharp crack with no cohesive zone 
(i.e. a system of cohesive forces acting on the crack surface) is constrained to evolve according 
to the Griffith criterion [20], the latter being a direct consequence of the second law of 
thermodynamics. This result is in open contrast with many of the results obtained in fatigue. 
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2.1. Basic equations 

The first iwo laws of thermodynamics, in the pointwisc form, read [37] 


pit = 

~ + pr. 

(1) 


( </A '' 


ps + 

(t), ~ 

(2) 


where „ - u(x k , t) is the specific internal energy; p = (x k , t) is the density; s = s(.v t , t) is the (total) 
specific entropy; T = T(x k ,t ) is the absolute temperature; a ,-j = < 7 , ; (x k , t) is the Cauchy stress 

tensor, = c,j(x k ,{) is the small strain tensor; q- t = q t (x k , t ) is the heat (lux; r = /-(. v t , t) is the heat 
source. 

The dot over a generic variable represents the material lime derivative d/dt and x k is the 

position vector. In addition to (1) and (2) we also have 

°ji.j T pf i = 0, 

E U = 

where /,- = /,-(-**, t) and u i = u i (x k ,t) are the body force and the displacement vector fields, 
respectively. As for the pointwise material behavior, we assume that it is described by the 
following set of equations [33]: 

°ij = o tj (e kl , T, a"), 

<7. = T, T k , a"), 

“ = T, a"), ^ 

5 = sfou, T, a"). 


such that 



s = 


8h_ 

dT’ 


(6) 


where It — h(x k , t) is the Helmholtz free energy 

It = u - Ts, ^ 

and a" = a"(x k ,f) is a set of N internal state variables (n - I, ..., N) whose evolution is governed 
by N rate laws of the type 

i" = tt'(E kl ,T,x m y, n, m = 1 N. 
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Fig. 1. Crack without a cohesive zone. 


generic field variable <f>, let 

^ = j™ <t>( x k ± £ v* , r); ce K + , x k e C (t) - l(t), 

4> + -<t>~ =[</>]. (16) 

By the above definition, each field variable is allowed to suffer at most a jump discontinuity 
across the interior of the crack surface. The behavior of such variables in the neighborhood of 
the crack tip will be discussed separately for each variable if and when the problem is 
encountered. Following Gurtin [24-25] we define a circle D s of radius <5, with center at the crack 
tip and translating with the crack tip itself. Thus, all points on the boundary dD s of D s are 
characterized by the same velocity vector as that of the crack tip. The unit normal vector to dD s 
outward with respect to D s , will be called m„ as shown in Fig. 1. 

2.2. Thermodynamics of a crack without a cohesive zone 

In this section the key results of the continuum thermodynamics analysis of a moving sharp 
crack without a cohesive zone are stated. For a complete derivation of the relationships reported 
here see the works by Gurtin [24-25] and those by Nguyen [28-29], 


blank not filmed 



I’nihtems in subcni teal crack proposal ion 33 

The second law of thermodynamics for the body I) and the crack tip alone, respectively, can 
be proved to take on the form: 


J l"lmu I <i A ^ 0; (G - 2y 0 )i ^ 0. 

Remark 2.1. The second of (21) is nothing but the Griffith criterion: 
/ > 0 if G 2s 2y 0 • 


Subcritical crack growth, i.e. / > 0 and 0 < G < 2 >- 0 , violates the second of (21) and as such is 
not thermodynamically admissible for the conditions described above (i.e. no cohesive zone). It 
is important to realize that relationships (21) are independent of the chosen constitutive 
equations as long as the resulting thermomechanical fields satisfy assumptions A1 and A2, and 
that they are a direct consequence of having assumed that the crack tip is sharp, i.e. represented 
by a single geometrical point. Thus, theories that introduce a damaged zone around the crack 
(with special constitutive behavior) but that still consider the crack tip as a single point in 
general will not result in thermodynamical admissibility of SCG. 

Remark 2.2. The temperature behavior at the crack tip is essentially determined by assumptions 
A1 and A2 rather than the heat conduction law assumed. In fact, for the right hand side of (19) 
not to vanish it is necessary that the heat flux be singular of order 1/r. Thus, if we have a heat 
conduction law in which the heat flux is proportional to the temperature gradient, then the 
temperature field is singular at the crack tip, and the singularity must be weaker than 1/r. In 

particular, if the Fourier law of heat conduction is assumed, then T is singular of order loe(r) 
[29, 42-43] 


(G - 2y 0 )i 


log r + more regular terms. 


( 22 ) 


The above equation shows that T has the sign of (G - 2y 0 )/. This result reinforces the 
significance of (21) and what was discussed in Remark 2.1 since subcritical crack growth would 
imply that the absolute temperature becomes infinite and negative at the crack tip. This is 
clearly thermodynamically and physically incorrect. Note that relationships (21) and (22) suggest 
the interesting interpretation of a moving crack tip as a moving heat source, and this is 
consistent with numerous observations of intense heating ahead of a propagating crack [42-^13]. 

Remark 2.3. Through singularity analysis various authors, such as Rice [35], Kfouri and Rice 
[36] and Nguyen [28-29], have shown that the quantity G is automatically null for the running 
crack problem, for almost every type of material behavior except the thermoelastic one. In other 
words, the quantity G, as a fracture parameter, is meaningless in most cases, such as in 
viscoplasticity. Nguyen has also shown that this is due to the fact that G (as given in (20)) is 
determined under the erroneous assumption that the field equations remain everywhere elliptic. 
In [44], for a nonlinear elastic material, the governing equations of the crack propagation 
problem have been shown to change their nature, becoming locally hyperbolic and therefore 
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Surface energy is in fuel an essential component of the driving force in sintering [50]. Note 
that, assuming that the second law holds in t he form given in (24) hut not in (21), SCG 
appeals to be possible only when some volumetric dissipation is present, in order to compen- 
sate for the negative contribution due to the crack advancement [18], Thus, even under the 
assumption that inequality (24) holds, the present thermodynamic analysis is unable to cope 

with the problem of SCG in ceramic materials that behave in a virtually perfectly brittle 
fashion. 

In Section 3 it will be shown that SCG can occur even under the restrictions of (21) when a 
dissipative cohesive zone is present ahead of the crack lip or, in other words, when the crack 
lip is no longer considered to be a single geometrical point but a finite length crack line 
segment that can display a special characteristic behavior of its own. The dissipation analysis 
for a crack with a cohesive zone will show that, in such a case, no problems arise concerning 
the temperature field and that a continuum thermodynamic theory consistent with SCG in 
brittle materials can be provided. 


2.3. Thermodynamics of a crack with a cohesive zone 

As mentioned above, the analysis of the running crack problem (without a cohesive zone) 
presents major difficulties in that the parameter G becomes meaningless except for materials 
that behave, at least asymptotically, as if they were thermoelastic. Moreover, the dissipa- 
tion analysis leads to uncertain results especially as far as the temperature field is con- 
cerned. A way to overcome some of these difficulties, while remaining in the framework of 

continuum thermodynamics, is to postulate the existence of a cohesive zone (c.z.) ahead of the 
crack tip. 

With reference to Fig. 2, a cohesive zone is defined as a portion of the crack line 
C(r):{£:0 ^ C < P(t)} (a more formal definition is given later) such that along o(t)^ £ < p(t), a 
system of cohesive forces is acting. At this moment it is not necessary to specify the nature of 
the cohesive force system. From its definition it appears clear that a cohesive zone, even when 
characterized by a certain opening displacement, has no volume associated with it. Thus, a <■? 
appears to be more a ‘mathematical’ entity rather than a ‘physical’ one, but, as it will be 
shown later, its introduction into the model allows one to overcome most of the aforemen- 
tioned problems in the context of continuum thermodynamics, without using nonlocal the- 
ories. A c.z. is not to be confused with a so-called process zone. The latter is usually defined as 
a region of finite volume around the crack tip and possibly all around the crack faces with 
special constitutive equations that translate the behavior of the damaged material ahead of the 
crack tip and in the crack wake. Note that, in principle the existence of a process zone does 
not necessarily overcome both the problem concerning G and that concerning the singularity 
in the temperature field since the crack tip is still considered a single geometrical point and 

since the process zone constitutive equations are not, in general, those of a thermoelastic 
material. 

The crack is now defined as follows 


<C(t) = {**(0:0 C ^ (i(t)}, 
c.z. = {x*(0:oc(r) ^ t p(t)}. 
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After Gurtin [26], we define the crack internal energy per unit length (surface), i: sucli that 

{ 2y 0 = const, 0 ^ C ^ 7(/), 

c(C, /), x(f) < C < /((/), ( 27 ) 

o, c = m 

An analogous definition can be given to the crack entropy <p 

{ <Po = const, 0 ^ C ^ 2 (f), 

</>(£, f), y.(t) <l < /((f), (28) 

o. c = m 


Let 3 = 3(c, f) ^ 0 be the crack absolute temperature, such that 

l) = T + = T~ 

Vc : c e c.z. 


(29) 


The above definition implies that the temperature field is continuous across the c.z. From 
(27)-(29) the crack Helmholtz free energy ip is defined in the traditional way 

<P = c - <p3. (30) 

Given the above definitions, the first law of thermodynamics for the cohesive zone alone can be 
proven to take on the form 

d C m C m 

— edC + 2y 0 a = (cr,^ - [<?,->,-) d£, (31) 

J 2(f) 


Eqn. (31) can also be given the following local form 

£ = GiSi - to]v,. (32) 

A statement of the second law for the c.z. cannot be deduced using the same arguments 
employed to derive (21), but rather it must be postulated. Thus, the second law for the c.z. alone 
will be given the following global and local forms respectively, after Gurtin [26] 

/. = <p + ^ o, (34) 

<P 

where / = 7.(c, t) for a < £ < ft and 7. = 0 for £ = (1, is the intrinsic entropy production per unit 
length in the cohesive zone. It can be proven that relationships (33) and (34) are consistent with 
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_ _ _ Interfacial Element 
Locations 

Figure 17. Schematic showing the geometry of the three-point loaded [(0^/90 i ) i /0^] % iamb 
nate used In the eight Interface damage evolution configuration. 
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Using the GSM theory (Halphen and Nguyen [20]) it is assumed that the c.z. free energy y> 
is a function of the opening displacement 6, the temperature 0 and, possibly, a set of internal 
parameters representing the interface microstructure. For simplicity only one of such parameters 
will be included herein and will be indicated by the symbol fi. The present formulation differs from 
the GSM theory in that the function tp is not required to be convex in the kinematic variable 6. 

The total cohesive force a is assumed to be expressed by the following additive decomposition: 

cr = cr ,r +cr e . (3.1) 

a e is assumed to be the part of the total cohesive force that is mechanically conservative for 
all processes constrained on hypersurfaces with 0 = const, and ft = const.. In other words, any 
transformation with 0 = const., fi = const, and <x ,r = 0 is an elastic process. 

Under the above assumption the c.z. free energy is therefore a function of the following type: 

ip = ( 3 . 2 ) 

definable in the following manner (Edelen [22]): 

V6, 0, n tp(6,0,fj.) = tp o (0,fj.) + f 6 -cr e (\6;0,n) dX A 6 [0, 1] (3.3) 

J o 

where it has been assumed that for any given pair 0 = const., fi = const., all admissible points 6 
on the hyperplane 0 = const., ft = const, are reachable from the origin of said hyperplane along 
a straight path. For the sake of simplicity and without loss of generality the function xp o {0 , fi) is 
assumed to vanish identically: 

0o(0,M) = 0. (3.4) 

The above definition of free energy is clearly consistent with the classical one usually employed in 
constitutive theories with internal state variables (see e.g. Rice [23]). 

Eq. (3.3) implies that the <r ,r component of the cohesive force does not contribute to any local 
energy storage mechanisms, whereas eq. (3.1) implies that cr' T expresses the mechanics of some 
phenomena acting in parallel with the c.z. deformation process. Hence, a" lends itself to the 
description of those dissipative phenomena, such as the c.z. nucleation process, that cannot be 
fully described in terms of the chosen set of c.z. state variables. Clearly, neither eq. (3.1) nor eq. 
(3.3) are sufficient to fully characterize the function cr ,r . In this regard it must be noted that if 
a XT is assumed to be a function of the chosen state variables and possibly of their rates, such a 
function cannot be totally arbitrary. In fact, in order for eqs. (3.1) and (3.3) to be compatible 
the relationship linking 6 and a" cannot associate a unique a" to a given 6 (for any fixed pair 
@ const., fx = const.) since, in this latter case, o would have to replace <j e in the integrand in 
eq. (3.3). In other words, eqs. (3.1) to (3.3) also imply that for any given 6 (and in particular for 
6 = 0) the mapping 6 — ► a", and in turn the mapping 6 —► cr, is in general set valued. Thus, the 
constitutive assumptions reflected in eqs. (3.1) to (3.3) provide a possible solution to the problem 
discussed in the introduction regarding the necessity for the mapping 6 -► a to be set-valued at 
6 = 0 . 

For the proposed formulation to be completely acceptable we have yet to show that the force 
a' T can be physically related to a particular crack or interface nucleation mechanism. In order 
to achieve this result we will rely on considerations based on the second law of thermodynamics 
and on a global thermodynamic analysis. The latter, presented in the next section, will show 
that the field cr‘ r and the field 6, although seemingly unrelated at the local level, are conjugate 
with respect to the total free energy of the system B U C. This in turn suggests that the proper 
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characterization of the relationship between a' T and 6 is expressed by a kinetic equation, that is, 
an equation of evolution. In the present theory, the c.z. evolution will be required to conform to 
the maximum dissipation principle. Such a requirement will then be formalized by assuming that 
the c.z. evolution equation can be derived from a dissipation potential. 

The decomposition in eq. (3.1), central to the present formulation, has been suggested explicitly 
in a number of works available in the materials science literature (Verheulpen-Heymans [24]; Leonov 
and Brown [25]). Gurtin [14], in his discussion of viscoelastic c.z. models, also concludes that a 
decomposition such as eq. (3.1) can be introduced, but the issue of giving <j ,r a consistent physical 
interpretation and a proper evolution equation is left unaddressed. Eq. (3.1) has also been less 
explicitly suggested by other authors such as Riedel [26] and Hui ct al. [9], 

Substituting eqs. (3.1) to (3.3) into eq. (2.20) we have 


dip 

~d6 


■6 




(3.5) 


By the use of classical arguments of the GSM theory (Germain, Nguyen and Suquet [27]), we 
see that equation (3.3) and inequality (3.5) yield the following c.z . state equations: 


a = 


dtp 

06 ' 


V> = - 


dtp 


dtp 

dfi 


(3.6) 


where k is the local free energy conjugate of the state variable fi. 

From eqs. (3.6) and inequality (3.5) we see that the energy dissipation in the c.z. is given by 


cr ,r • 6 + K • ft > 0. 


(3.7) 


Having assumed that the c.z. thermodynamic state depends also on some internal variable /z, 
it is necessary to complement the set of c.z. constitutive relations with the appropriate equation of 
evolution for the variable /t. In analogy to eq. (2.9) we assume that 


A € duj(n) 


where the subscript / stands for interface. 


(3.8) 


4. GLOBAL THERMODYNAMIC ANALYSIS 

As discussed in section 3, the cohesive force decomposition in eq. (3.1) and the c.z. free energy 
definition in eq. (3.3) yield the desired result of a set valued relation between a and 6. However, 
eqs. (3.1) and (3.3) fail to provide a complete characterization of the c.z. constitutive behavior since 
the quantity a' T is left undetermined. The purpose of this section is that of completing the c.z. 
constitutive equations by providing a thermodynamically consistent characterization of the force 
cr . In order to achieve this goal considerations based on global thermodynamics will be used. By 
global thermodynamics we mean a thermodynamic analysis of the system at hand as a whole (almost 
as if it were a single material point). A more precise definition is given in the excellent discussion 
by Germain et al. [27]. Thus, similarly to what is done at the local level, the main objective of 
the global analysis is the determination of thermodynamic potentials for the whole body. Such 
potentials will be functions of all those parameters that one has to specify to fully determine the 
amount of strain energy stored in the system at a given time. Said parameters will be referred 
to as global state variables and they include the system geometric descriptors, the boundary data 
and the internal microstructural configuration. Clearly, the global state variables in general belong 
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to an infinite dimensional space, contrary to what happens in the local theory. Apart from this 
important distinction, Germain et al. [27] have shown that under quite unrestrictive assumptions on 
the pointwise thermodynamic behavior there is an impressive formal similarity between the global 
thermodynamic potentials and the local ones. In particular, one can find quantities that, although 
loosely related at the local level, behave like thermodynamic conjugates pairs with respect to the 
global potentials. Moreover, those global variables that cannot be directly controlled through the 
boundary of the body can be shown to behave like internal state variables at the local level. In 
fact, it can be shown that the evolution of global internal variables can be characterized using a 
global dissipation potential. A remarkable example of the usefulness of these concepts has been 
provided by Nguyen [16, 19] in the field of fracture mechanics and plasticity. Generalizing an earlier 
analysis by Rice [28], Nguyen [16] has shown that the total potential energy of an elastic cracked 
body can be used to define a global thermodynamic potential that behaves at the global level like 
the Helmholtz free energy at the local one, and has extended this result to elasto-plastic systems. 
In such a context, the crack energy release rate, in both elastic and elasto-plastic systems, has 
been shown to be precisely the generalized thermodynamic force conjugate to the crack length with 
respect to the global free energy (cf. Rice [28]). Furthermore, Nguyen [16] has reformulated the 
Griffith criterion as a crack evolution law obtained from a global dissipation potential function of 
the energy release rate. Other important applications of global thermodynamics can be found in 
the field of homogenization theories for composite materials (cf. Germain et al [27]). 

In the present section the set of the global state variables (external and internal) for the system 
at hand will be determined. The crack fields <r tr and 6 will be shown to be conjugate with respect 
to the global free energy of the system. The existence of a global dissipation potential governing 
the evolution of the (global) internal field 6 as a function of a ir will be postulated and a class of 
evolution equations for the field 6 will be obtained from said dissipation potential. In section 5 
it will be shown that the formalisms developed in sections 3 and 4 can be given a clear physical 
meaning and can be used in a great variety of practical applications. 

Germain [29] has shown that the concept of global free energy for dissipative systems can be 
derived by an extension of the concept of total potential energy. The total potential energy in the 
sense of Germain [29] for the system B in Fig. 1 is the functional 

£[u,u d ,f d ,A,T,a,(3,6,ti]= f ph{E(u),A,T)dA- f i d udl + f* rp(S,T,p) d(, (4.1) 

JB JdBf JO 

where, 8 = T on c.z., and u = on dBf . For the moment, all the parameters listed within 
brackets on the left hand side of (4.1) are assumed to be specifiable arbitrarily. This assumption 
will be verified a posteriori with the intent of showing that in general the parameters a and j3 do 
not satisfy such a requirement and therefore must be eliminated from the list of independent global 
state variables. Furthermore, the field <5 will be shown to be a global independent field only when 
the c.z. constitutive equations conform to the assumptions in eqs. (3.1) to (3.3). 

The functional £ can be thought of as a 9-parameter family of elastic total potential energy 
functionals, each of which is obtained by computing the right hand side of (4.1) for an arbitrarily 
given 9-tuple of said parameters. Since £ is well defined for any given 9-tuple of parameters, 
the latter are not required (at least at this stage) to satisfy the equilibrium equations or to be 
compatible with any actual evolution. 

The satisfaction of the equilibrium equations, in a sense that will be made clear below, is now 
used as a criterion to select a subfamily of potential energy functionals that will be later defined to 
be the global Helmholtz free energy for the system at hand. 

Among all possible displacement fields u a particular one can be found by specifying all other 
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parameters on the left hand side of (4.1) and by solving the corresponding purely elastic boundary 
value problem. The latter is defined as follows: 

Given the fields u d , f d , A, T, 6, and p. on the corresponding domains of definition 
find the field u G K such that the equilibrium equations (2.11) are satified, 
subject to the boundary conditions in eq. (2.12). 

where A is the set of all admissible displacement fields: 


K = 


u g c l (B) 

U = u d Vt.VxGdHf 

WC.O] = 6(C,t) VC €[«,/?] 

M •" > o vc g [o, fi] 


(4.2) 


Note that a and fi do not need to be explicitly specified since their position is implicitly assigned 
once the field <5 is given. 

In essence, the problem just defined is a classical elastic boundary value problem (BVP) where 
together with the usual set of boundary data in eq. (2.12) some other (and less traditional) con- 
ditions are specified, equivalent to the assignment of some eigenstrain fields. Thus, under the 
assumption that the free energy /i(E(u), A,T) is a convex function of E, the displacement field u 
solution of the above BVP is unique and is such that 


£[u; u d , . . . , p] = min £[u';u d , 

xx* 6 ^ 


(4.3) 


Under these conditions, a unique global thermodynamic potential ft for the system B can be defined 
as the value of £ corresponding to the field u solution of eq. (4.3) (Germain [29]): 


ft[u d ,f d ,A k ,T,a,fi,6,p] 


min ^iTju^Afc, T, a, 0,6, #*]- 


(4.4) 


Globally, the functional ft corresponds to the Helmholtz free energy A at the local level. Note that 
since the field u is no longer considered as an independent parameter, it has been eliminated from 
the list within brackets on the left hand side of eq. (4.4). 

Once the potential 7 i is defined, it is possible to determine the thermodynamic conjugate 
pairs that characterize the crack energetics. In other words, it is possible to determine those 
thermodynamic forces, analogous to the energy release rate in fracture mechanics, that govern the 
c.z. evolution. In order to do this one needs to take derivatives of ft with respect to the chosen global 
independent state variables. Clearly, when referred to 7i the term derivative must be intended in 
the sense of Gateaux (Sewell [30]). The notation U <4 , will indicate the Gateaux derivative of ft 
with respect to the quantity ‘<£’, relative to a convenient topology. 

The derivatives of ft with respect to the fields u d and i d on dB and of the fields A and T in B 
can be considered a classical result in global thermodynamics (Germain et al. [27]): 


^,A* — — Bi(x, t) x G 5; ftj = — s(x, t) xgfi; 

= f( x >0 x G cU?f; 7tfd = u(x, t) x G dHf'. ^ ^ 

H'T on C will be derived below along with the other results concerning the crack. 

Next, the derivatives of H with respect to the crack state variables will be derived and discussed. 
One simple way to obtain such derivatives is to compute the first variation of the potential ft and 
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apply the Reynold’s transport theorem. Thus, recalling that the function 
has been assumed continuous at £ = a whenever 6a ^ 0 we have 


Sn= -S B (s6T + B k 6A k )dA + f dB ff-6u d dl-f dB EU-6f d dl (4.6) 

- Itw - If) • M dC - fH(<p6T+ K ■ 6n) dQ + He 60 

The top line of eq. (4.6) essentially represents the results already listed in eq. (4.5). Hence, recalling 
that ip(6(0, t), 6(0, t), fi(0, t)) = 0 (where the symbol *=’ signifies identically equal to), from eqs. 
(3.1) and (3.6) we have 


7i /} = — cr‘ r 7 ij = —p Ti'fi = —n on c.z.. (4-7) 

Furthermore, we have 

h, 0 = o = h q . ( 4 . 8 ) 

Equations (4.8) show that the global thermodynamic potentials H and, in turn, £ are indepen- 
dent of the variables a and 0. An important consequence of this result is that the variables a and j. 3 
cannot be assigned arbitrarily under any circumstance. This is in contrast with the usual outcome 
of standard fracture mechanics analyses. In fact, in fracture mechanics a quantity such as 7f, 0 is 
in general non-null and represents the crack energy release rate according to the definition given 
by Griffith [31]. If 7 i yQ (H^) had not been identically null, then a (0) could have been considered 
a global internal variable and its evolution could have been characterized via a dissipation poten- 
tial function of the energy release rate 7f Q (7 i t p) as it can be done in a more traditional fracture 
mechanics context (cf. Nguyen [16]). In the present case neither a nor 0 can be considered global 
internal variables. Their values during an actual evolution are therefore completely determined 
once the c.z. constitutive equations are accounted for in satifying the equilibrium equations. The 
quantity that replaces the energy release rate in expressing the driving force for the c.z. evolution is 
the conjugate with respect to 7 1 of the c.z. opening displacement, namely the field -<r ir e [a,0]. 
This latter point will be discussed in greater detail in section 6. 

In view of the above result, it must be noted that if the c.z. constitutive equations were chosen 
so that a could be derivable from the free energy potential ip, i.e. if a" = 0, even the first of eqs. 
(4.7) would vanish identically. This does not only imply that the potential 7i is independent of the 
field 6 but also, and more importantly, that in reality a unique 7f cannot always be defined due to 
the third of (4.2) (7f ^ = 0 = £ $ implies that 6 cannot be treated as a boundary data) and to the 
assumption that the c.z. free energy is non-convex and that the elastic bifurcation/stability problem 
associated to eq. (4.3) must always be addressed before anything can be said on the c.z. evolution. 
Moreover, the latter is essentially determined by the equilibrium equations (totally determined in 
the absence of c.z. internal variables such as M)- 

As mentioned in the introduction, the issue of elastic bifurcation and stability of a purely linear 
elastic body with a non-linear elastic interface (i.e. non convex interfacial free energy with cr' r = 0) 
has been studied by Suo et al. [10] by establishing the existence of certain interface stationary waves. 
In the present context, the same problem can be treated using standard variational calculus. The 
loss of solution uniqueness for the problem defined in eqs. (4.2) and (4.3) can be readily seen by 
studying the sign of the second variation of the potential £ . Under the hypotheses that <x ,r = 0, 
6 2 £ takes on the form 


6 2 £ = 



d 2 h( E) 
dEdE 


6 E dA + 



d 2 ip 

dSdS 


66 dt ' > 0. 


(4.9) 


Since the function ip is not convex, the integral on the right hand side of inequality (4.9) may 
become negative and overcome the positive contribution from the first integral thus leading to a 
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loss of uniqueness in the solution of the given boundary value problem. Note that if the system 
at hand is fully elastic (as in the case of Suo et al, [10]) then inequality (4.9) governs both the 
uniqueness and the stability properties of the problem. 

When a non-null field a tT is included into the picture, bifurcation and stability become, at 
least in principle, two separate issues and can be treated by studying the properties of the second 
derivatives of the functional H as shown by Nguyen [19] in the context of plasticity and by Nguyen 
et al, [32] in the context of brittle fracture. This topic will be considered separately in section 6. 

Going back to the global thermodynamic analysis, we now need to provide an expression for 
the system global dissipation. In reality the part of the dissipation that is of interest here is that 
associated with the microstructural rearrangements occuring in the system B. Such a dissipation, 
indicated by /? mxc , can be determined by computing the difference between the time rate of change 
of Ti under isothermal conditions and the power expended on the body: 

Dmic = ( Bfc • A/j dA + f (a * 6 -f- k * /x) di * > 0. (4.10) 

J B J a y 

The result here above is certainly consistent with the third of inequalities (2.8) and with inequality 
( 3 - 7 )- 

Relations (4.7) and (4.10) indicate that the field cr' T is the global thermodynamic force conjugate 
to the field 6 , and that the latter can be regarded as an internal variable at the global level. 
Therefore, in the context of the GSM theory (Germain et al. [27]) the relationship between a " and 
6 must be given in the form of an equation of evolution. The latter, consistent with the principle 
of maximum dissipation, will be assumed to be derivable from a global dissipation potential convex 
in the conjugate force cr ,r : 

6 e dfl/(cr ,r ). (4.11) 

Eq. (4.11) is formally identical to eq. (3.8). Note though that the potential U[(k) is a local 
dissipation potential whereas ft/(<r ,r ) is a global one. In other words, it is only through a global 
analysis that the evolution equation in (4.11) can be declared thermodynamically consistent (at 
least in the context of the GSM theory). 

The existence of the potential fl/ is one of the most important assumptions in the present 
theory. The choice of expressing 6 as the subgradient of Qj is motivated by the intent to construct 
a theory applicable to rate independent models such as that by Dugdale [2], as well as to rate 
dependent ones. 

With the introduction of eq. (4.11) the cohesive zone constitutive equations are complete. In 
fact, although the first of eqs. (4.7) con be used to evaluate the field a ir at a given state once 
everything else is known, it does not yield any information about the physically admissible a ir 
fields and their evolution. It is only through eq. (4.11) that the physics underlying the field cr ,v 
enters the problem and can be given a proper mathematical formulation. 

5. A FEW COHESIVE ZONE MODELS RE-EXAMINED 

Before moving to the analysis of the differences between the present formulation of the running 
crack problem and a more classical one (i.e. without a c.z.), a few c.z. models available from the 
literature are now reformulated using the present thermodynamic framework. 

The model introduced in section 3 can be schematically represented by the rheological analog 
model depicted in Fig. 2. It essentially consists of two parts: a purely dissipative element, such as 
the friction element of the Coulomb type in Fig. 2, placed in parallel with a non-linear spring that 
in turn is placed in series with another dissipative element represented by the box with the symbol 
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The simplest model that can be described in terms of the general one introduced herein is the 
celebrated Dugdale model (Dugdale [2]). In its most elementary formulation, the Dugdale model 
is expressed by the following relationships 

0 < a u < a Y => 6 = 0 ; a u = a Y => 0 < 6 U < 6cr ( 5 . 1 ) 

where — cr • i/, 6 U = 6 - v and a ^ and 6^ represent the critical values for the cohesive force 
and the c.z. opening displacement, respectively. The cr — 6 graph corresponding to the eqs. (5.1) 
is depicted in Fig. 3a. 


t a 



I 0 


Figure 2: Mechanical Analog of the Cohesive Zone Constitutive Relations. 



Figure 3: The Dugdale Model. 

Dugdale [2] introduced this model to estimate the size of the plastic flow region ahead of a 
stationary crack. Thus, eqs. (5.1) are intended to describe a rigid perfectly plastic behavior, and, 
from a thermodynamic viewpoint, a purely dissipative one. 

Under isothermal conditions and assuming that the opening displacement 6 is the only c.z. 
state variable, a purely dissipative interface can be readily modeled by setting = 0. Moreover, 
using some elements of rate independent plasticity (Moreau [33]), eqs. (5.1) can be recast in the 
following variational form: 

(a-<r*M>0 Vcr'GCo, C D = [ 0,^], a Y =| a Y \ \ <j Y \= const. (5.2) 

\6 \ 

It can be shown (Moreau [34]) that constitutive relationships of the type given in eq. (5.2) essentially 
describe a friction law of the Coulomb type. 
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Eq. (5.2) can also be recast in a form identical to that indicated in eq. (4.11) as follows: 


6 e dIc D (a) 


where Ic D {cr) is the indicator function of the convex domain Co- 


(5.3) 


Ic D (<r) 


o if <t eC D 

+oo if a $ Co 


(5.4) 


Eq. (5.3) is therefore the kinetic equation that governs the evolution of the Dudgale model. Note 
that eq. (5.3) is more general than eq. (5.1) since it includes both the behavior for 6 * v > 0 and 
that for 6 • v < 0. 

Budiansky and Hutchinson [35] extended the original Dugdale model by including compressive 
behavior for the study of crack closure effects during cyclic loading. Such a model can be refor- 
mulated using eqs. (5.3) and (5.4) extending the domain Co to include a compressive cohesive 
force: 

Co = [~cr Y ,a Y }. ( 5 . 5 ) 

Both the Dugdale and the Budiansky-Hutchinson models are represented by the simple rheological 
model depicted in tig. 3b. In section 6, eqs. (5.2) and (5.3) will be shown to be quite important 
in the derivation of the Griffith criterion for brittle fracture as formulated by Nguyen [15-16]. 

A further rate independent generalization of the Dugdale model can be obtained by taking into 
account some possible hardening or softening effects. One possible way to achieve this result is 
to allow the convex domain C D to be history dependent. For instance, C D can be defined in the 
following way: 

C D = [0,<t y (6)]. (5.6) 

In this case the evolution law relating cr ,r and 6 cannot be expressed by eq. (4.11) since the 
function fi/(<j tr ) would depend on other variables in addition to cr ir . Furthermore, in the case of 
strain softening behavior the property of local stability in the sense of Drucker would be lost. 

Another way of proceeding is that of endowing the c.z. model with a convenient free energy 
function schematically represented in Fig. 2 by the non-linear spring. Some examples of the possible 
relationships between <x c and 6 are shown in Fig. 4. 



Figure 4: A Few Possible a € — S Relations. 
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Assuming that \j) — ip(6), i. e. ft = 0 , the evolution law in eq. (4.11) remains valid and the strain 
hardening/softening effects are accounted for via the effect of <r e on cr ,r . Consider, for example, 
the following model: 

W) = $o-\6- A6, V’o = const. >0 A = A T , det(A) > 0 

a=a e +cr ,T , rr c = -AS (5.7) 

<r‘ r e C D = 6 e dIc D 

For a one dimensional case with 6 • v > 0, the forces <r, a e and a' T are shown in Fig. 5a. 

The model described by eqs. (5.7) is in essence a rate independent version of that recently 
proposed by Xu, Hui, Kramer and Creton [36] for the description of crack growth along the interface 
between two homopolymers toughened by di-block copolymer chains. Xu et al. [36] described the 
loss of interface coherence using an idealized pull-out model. Indeed, force-displacement diagrams 
like those depicted in Fig. 5a are qualitatively similar to those obtained in fiber pull-out experiments. 
For such problems an interface free energy like the one proposed in the first of eqs. (5.7) can be 
justified with the following qualitative argument. Consider the pull-out problem depicted in Fig. 
5b, in which a rigid whisker of diameter d + c (t > 0) is extracted from a hole of initial diameter d 
within a purely elastic matrix. When the whisker is still entirely surrounded by the matrix a certain 
strain energy ip(6) is stored in the residual stress fields caused by the difference in diameter between 
the whisker and the hole. Clearly, is a monotonically decreasing function of the displacement 
6, with a maximum ift 0 for 6 — 0 and a minimum equal to zero for S = L where L is the depth of 
the hole in the matrix. As the whisker is pulled out of the matrix, such a strain energy is released 
at a rate difr/dS which is nothing but the elastic cohesive force cr e and such that cr e ■ 6 < 0. 



W (b) 


Figure 5: Interface Model Corresponding to Fiber Pull-Out. 

From eq. (3.1) we then see that 

I a ' r l>l *r | (5.8) 

which can be interpreted by saying that the <r e component of the cohesive force facilitates the pull- 
out action. The interesting element of this particular example is that the model in eqs. (5.7) does 
indeed predict a global strain softening effect in the <j — 6 curve, and that the energy dissipated 
during separation is greater that the net pull-out work since cr ir -d6 >cr d6. This last observation 
may be significant in studies concerned with the determination of thermal effects at the interface. 

In order to generalize the model in eqs. (5.7) to include rate effects such as those considered by 
Xu et al. [36], it is sufficient to modify the dissipation potential Sli(a' T ) in the following way: 

Q/(<x* v ) = ft 1 (<r l> ) + n 2 (cr ir ) 

^l(°' tr ) = Ic D , ^2(<7 ,r ) = -£;cr' r ■ cr tr , Tj = const. ^ 0 ^ ^ 
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where 17 is a scalar viscosity coefficient. In essence, eqs. (5.9) describe the rigid- viscoplastic cohesive 
zone model, with instantaneous plasticity and linear viscosity whose analogical model is depicted 
in Fig. 6a. 



Figure 6: (a) Model by Xu et al. [36]; (b) Model by Riedel [26], 

As an example of a model with internal state variables, consider that depicted in Fig. 6b. Using 
the formalism introduced in section 3, the equations describing the model are 


6 = 6' + S p n = 6 P 
*(6,ti) = iK6-6*) 


Thus, the state equations are 


e _ dip _ dip _ dip _ e 

° ~ 36 K ~~djl ~ ~ds p ~ <T ’ 

The c.z. dissipation takes on the form 


(5.11) 


or"' <5 + a e 6 p > 0. (5.12) 

Consistently with eq. (3.7) the variable 6 P is assumed to evolve according to the following kinetic 
equation: 

S p € dw/(<7 e ) (5.13) 

In order to see that the equations here above can indeed be used to obtain a cohesive zone model 
of interest, consider a case in which the dominant interface deformation behavior is creep plastic 
flow. In this case then the following approximations are justified: 


6 P > 6 e ^ 6 P *6 
u/(cr e ) = A(a e ) n . 


(5.14) 


Thus, 


6 = A(a- a ir ) n 


(5.15) 


where A and n are material parameters obtainable from experiments. In particular, if the viscosity 
coefficient A is allowed to be a function of 6 , e.g. A = J B(S) pn and B, p, and n are constants, then 
eq. (5.15) describes exactly the c.z. model for creep fracture proposed by Riedel [26]. A similar 
model has been also proposed by Kramer and Hart [37]. 
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6. COHESIVE ZONE MODELS AND FRACTURE MECHANICS 

6.1. Introduction. 

In the preceding sections a general c.z. constitutive theory has been presented. The proposed 
model has been shown to be both thermodynamically consistent and to satisfy the requirement 
that the relation <j — ► 6 be set valued. As discussed in the introduction, in order for a c.z. 
model to be applicable to a wide range of phenomena it should also allow for the prediction of 
the transition from a fully cohesive interface to a cracked one, and, subsequently, for the analysis 
of the crack propagation stage of the interface life. The purpose of the present section is exactly 
that of confronting these last two issues. In particular, section 6.2 deals with the problem of 
crack nucleation where the latter is seen as the evolution from full cohesion to the appearance of 
microcracks whereas section 6.3 deals more properly with the running crack problem and analyzes 
the differences and similarities between cracks with and without cohesive zones. 

6.2. Cohesive Zone Models and Crack Nucleation. 

In spite of the fact that they were not originally intended to study crack nucleation, interface models 
in general carry an intrinsic capability of providing useful information about the crack initiation 
process or, more specifically, on the possibility of microcrack pattern formation. As mentioned in 
the introduction, this capability has been explored by Hui et al. [9] and more recently by Suo et 
al. [10] by studying a bifurcation problem in which both the interface and the bulk behaviors are 
elastic. In this case, the bifurcation problem coincides with that of elastic stability. 

The present formulation of the interface constitutive equations, by including dissipative effects, 
allows one to confront the interface bifurcation problem using methods developed in the field of 
plasticity, in which the issue of bifurcation does not necessarily coincide with that of stability. From 
a physical viewpoint this distinction is very important since the development of microcracking and 
damage in most materials occurs, at least in its early stage, under global stability. 

The purpose of this section is to show how techniques from the theory of plasticity can be 
applied without significant changes to the study of the interface bifurcation problem. 

For simplicity, the bulk material behavior will be assumed to be elastic and the c.z. constitutive 
behavior will be assumed to be that described in eqs. (5.7) except for the assumption that the 
function V>(<5) is now assumed to be general. Furthermore, the system B is assumed to evolve 
under isothermal conditions, the external boundary data to be of the Dirichlet type only and the 
interface is assumed to be initially fully cohesive. Given the above hypotheses, the potential H 
reduces to 

n{» d ,6} = J B W (V(u d ,6))dA + ( 6 . 1 ) 

where W(E) = ph( E) is the strain energy function (under isothermal conditions). 

By definition, the potential 7i already includes all the information that can be obtained from the 
boundary value problem that characterizes the equilibrium of the system B, which, under the given 
constitutive assumptions has been shown to yield a unique solution. Thus, if a loss of uniqueness is 
to occur, it would appear in the solution of the rate problem that governs the interface evolution. 
The rate problem for the particular case considered herein is constructed by noting that when the 
domain C d (<t") of the admissible irreversible cohesive forces is time independent, the following 
relation, usually referred to as the consistency condition, must hold: 

&' r 6 = 0 VC G [0,/?] and Vt (6.2) 
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Once the rate of the applied boundary condition ii d is given, the rate of the field cr ,r is obtained 
by using the first of eqs. (4.7): 

<*" = W 66* + W, (6.3) 

Now recall that the last of eqs. (5.7) can be interpreted by saying that the unknown vector <5 
belongs to the set Nc D , defined to be the tangent cone to the set Co- 

Nc D (<T ir ) = {£|£ - (<T ir - <r*) > 0 V<r* 6 C D } (6.4) 

so that we have 

&' r t>0 V£eNc D (* ir )- (6.5) 

Hence, the rate problem whose primary unknown is the field 6 can be reformulated in the following 
variational form: 

U-6)-(H M 6 + H 6ud u d )>0 Vt <E N CD (a ir ). (6.6) 

Lions [38] showed that solutions to the variational inequality (6.6) exist if the tensor field 7 7 $$ 
satisfies the following positivity condition: 

£ • n M i >o v(e N CD {<r iT ). ( 6 . 7 ) 

Nguyen [19] showed that a unique solution to (6.6) exists if K s$ satisfies a positivity condition 
stronger than (6.7), namely 

£ • %£ >0 V(6 Nc D (<r ir ) (6.8) 

where Nc D (cr ir ) is the vector space generated by Nc D (a ir ) (i.e. the totality of all possible linear 
combinations of the eleme nts of Nc d (<t")). Condition (6.8) is more restrictive than (6.7) because 

it must hold on the space Nc d (<t") which clearly includes Nc D {cr tT ) as a proper subset. 

Solutions to inequality (6.8), being subject to a more severe constraint than that imposed on 
solutions to (6.7), identify bifurcation modes under stable conditions. A complete discussion of 
inequalities (6.7) and (6.8) is certainly out of the scope of the present paper and therefore will not 
be given here. Nonetheless, a few qualitative results can be established with little effort by simply 
providing a more concrete form for the abstract expressions in both (6.7) and (6.8). 

Consider the second variation of the functional 77, as required in inequalities (6.7) and (6.8), 
under the requirement that the externally controlled displacement data remain fixed: 

^ “ + £ « ■ mP « > • <M> 

where, by definition of 77, the field <5E is not arbitrary, but is a function of the variation 66 such 
that 

div(^S) = div(^g^E) = 0 
<5E = V(£u) | Su = 0 on dB^ and [£u] = 66 on C 

Having assumed that the function W is convex, inequality (6.9) allows one to establish that the 
interface evolution problem formulated herein has a unique solution for all interface constitutive 
models with a convex or null free energy ip. The most renowned of such models is perhaps that 
of Dugdale, which cannot therefore be used to predict crack formation from an otherwise sound 
material via the use of bifurcation arguments. The Dugdale model, like any non-bifurcating model, 
can only be used in fracture problems where a crack is present to begin with. Furthermore, in the 
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present formulation, in order for a bifurcation in the solution £ to occur it is necessary to have a 
non- convex free energy ip. 

In order to extract more information from inequality (6.9) it is necessary to rewrite it in such a 
way that all integrals evaluated on the domain B are transformed into integrals evaluated on the 
domain [0,/3]. In general, the accomplishment of this task is quite difficult in that knowledge of the 
functional dependence of the field on the field 66 is required. Thus, for the sake of conciseness, 
and with the intent of providing only a qualitative result, assume that an admissible variation <5u 
of the displacement field u can be given the following form: 

oo 

= E a ' sin ( k « x ) (6.11) 

t— 0 

where the wave vectors k, (t = 1, . . . , oo) are to be determined as functions of geometry and material 
properties and where 

OO 

[H = <e = X>,-]sin(k t .z) Z ec. (6.12) 

t '=0 

Substituting (6.11) and (6.12) into (6.9) and employing the Reynold’s transport theorem we obtain 

6 ' n = J! ( { Sa + ms ( } d<>0 < e13 ) 

where 

( q2 oo \+ ( d 2 W 00 \ ~ 

^ I ga t ®k,cos(k t .x)J "= (aEdE§ a, ® k, c° s(k '- x )J * ( 614 ) 

Inequality (6.13) can be further manipulated and cast in the form indicated in inequalities 
(6.7) and (6.8) to define a classical eigenvalue problem. For the purpose of this discussion it is 
sufficient to note that, from eq. (6.14), the sign of the integrand in (6.13) essentially depends on the 
magnitude of the bulk tangent elastic moduli relative to the interface elastic tangent moduli and 
on a set of characteristic length scales associated with the wave vectors k t *. Note that the strain 
energy W does not need to be continuous across the interface. The above result is qualitatively 
consistent with that obtained in a quite different context by Suo et al. [10], and therefore shows 
that the treatment of the bifurcation problem suggested herein is a valid one. 

6.3. Cohesive Zone Models and Crack Propagation. 

We now turn our attention from the crack initiation problem to that of crack propagation. In classi- 
cal fracture mechanics, i.e. in analysis without cohesive zones, the expression crack growth problem 
indicates a moving boundary problem in which the primary unknown is usually the trajectory of 
a single (non material) point referred to as the crack tip. The global thermodynamic analysis in 
section 4 has shown that in fracture problems with a cohesive zone the primary unknown associated 
with the crack is neither the trajectory of the point at £ = a nor that of the point at £ = P (cf. eq. 
(4.8)), but rather the time evolution of the field 6 . Thus, the problem with and that without a c.z . 
appear very different, at least from a mathematical viewpoint. In reality, since the two problems 
are intended to model the same phemomenon it is reasonable to expect some similarities between 
them. The purpose of this section is therefore that of providing some insight on the relationship 
between the classical running crack problem and that with a c.z.. 
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In order to relate the two problems it is necessary to constrain the c.z. to behave as much as 
possible like a single geometrical point. Taking into account that the c.z. must have finite size by 
definition, one possible way to impose said constraint is to assume that the c.z. is small with respect 
to the rest of the crack surface, i.e. 0 — a <C o and to rigidify the c.z., i.e. to assume that during 
crack propagation the crack tip behaves like a rigid wedge moving ahead of the physical crack tip. 
This latter approach is not at all new. In fact, it concides with that followed by Barenblatt [1] who 
formalized it through the following two assumptions (p. 59 in Barenblatt [1]): 

Al. . . . the area of the part of crack surface acted upon by the forces of cohesion can be considered 
as negligibly small compared to the entire area of the crack surface. 

A2. ... the form of the crack surface near the edges, at which forces of cohesion have the maximum 
intensity, does not depend on the applied load. 

Under assumptions Al and A2 the function £(£,<), £ e [or, /?] takes on the form 




where 


X = C - « V£ e [a,/?], C = 0 — a = const.. 
From eqs. (6.15) and (6.16) we also have 


66 _ 

dx 


•i/ < 0 V X G [0,£]. 


(6.15) 

(6.16) 


i .66 .66 

6 = a— = -a—, 
oa dx 


(6.17) 


From eqs. (6.17) and (4.10) we see that the dissipation rate D c due to crack propagation alone 
becomes 




(6.18) 


Eq. (6.18) indicates that assumptions Al and A2 are certainly sufficient to render the trajectory 
of the point at £ = a the primary unknown of the problem as in the classical fracture mechanical 
formulation. Moreover, now that a has replaced the field 6 as a global internal state variable for 
the system B we have 

ay , f° ir 96 J 

-Ka = J = J c <r -Q^ d X- (6.19) 

where J is therefore the generalized thermodynamic force conjugate to a. The force J can also be 
expressed via the following decomposition: 


J = G-R (6.20) 

where 

G = L a '^ dx and R = Ic aC ^c dX ' (621) 

The quantities G and R are the energy release rate, as defined by Griffith (31], and the resistance 
to crack growth, respectively. The quantity R is usually referred to as intrinsic fracture energy 
and expressed by the notation 2-y. In view of the discussion given in section 5, R may not always 
be a positive number. Eqs. (6.18) and (6.19) bring support to the claim made in section 4 that 
when a c.z. is introduced into the formulation of a fracture problem, the generalized force a ir takes 
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the place that the energy release rate occupies in the classical approach. The first of eqs. (6.21) 
represents a generalization of a well known result obtained in the context of linear and nonlinear 
elasticity by Rice [39]. 

Eqs. (6.18) and (6.19) suggest that a dissipation potential $l c (J) can be found such that the 
crack evolution law takes on the form: 

o G 8tt c (J) (6.22) 

consistent with the principle of maximum dissipation. In fact, fl c (,7) can be computed explicitly 
under assumptions A1 and A2 once the dissipation potential fl(cr ,r ) is given. As an elementary ex- 
ample, consider the Dugdale model formulated in eqs. (5.2) to (5.4) with the additional assumption 
that there exists a constant value 6 C of the crack opening displacement at which fracture occurs. 
Hence, due to assumption A2, during crack propagation, every point in the c.z. experiences an 
opening rate 6 = — adS/dx- From eqs. (5.2) we then have 


6 / 0 => o- ,r 


cr'* if 6 ■ v > 0 

0 if 6 • v < 0 


(6.23) 


Having assumed that 6(x, C) ■ u is a monotone decreasing function of x, from eqs. (6.19) and (6.23) 
we have 


J = 


Ic aY ‘ if d X if a > 0 
0 if a < 0 


(6.24) 


The integral on the top right hand side ofeq. (6.24) has the evaluation (cf. Rice [39]): 



y 

r x dx ^ 


■6c 


const.. 


(6.25) 


Letting J„ — a Y ■ 6 C , from the above equation we see that J (E (0, J CT ) a = 0 and that 
< *7^0 = ^*^ = 0 or '^ = Jcr. Thus, the kinetic equation that governs the evolution of the independent 
state variable a can be given the following form: 


a <E dI c (J) (6.26) 

where Ic{J) is the indicator function of the closed convex domain Cj - [0, J CT ]. Eq. (6.26) can 
also be formulated in the following variational form: 

(J - J')a > 0 VJ* GCj (6.27) 

or 

(G-G>>0 VG'eC G C G = [R,Jcr + R} (6.28) 

where 

- f° dib 86 

R = lcMdi ix = ( 6 ' 29 > 

Note that in the specific case of the Dugdale model, at least according to the formulation given 
herein, R is always identically null. In general though, based on physical observation it is customary 
to assume that R < so that C G = [0,G cr ] where Gcr = J 

The evolution equation (6.28) has been proposed by Nguyen [15-16] as a re-statement of the 
Griffith criterion suitable for the formulation of rate independent brittle fracture problems. As 
mentioned in the introduction, the derivation presented in this section shows that such evolution 


22 



equations can be derived under suitable assumptions (namely A1 and A2) directly from the Dugdale 
model. 

The procedure with which eq. (6.28) was derived is quite general in nature. In other words, 
given a certain evolution equation for the c.z. one can always construct, under assumptions A1 and 
A2, a corresponding evolution equation for the global internal variable a that is derived from a 
dissipation potential, where the latter can be explicitly constructed as shown above in the case of 
the Dugdale model. 


7. SUMMARY 

The present work is in essence an extension of modern constitutive theories to include stationary 
partially coherent interfaces. As stated in the introduction, the theory is built so as to satisfy 
three fundamental physical requirements. First, the interface is required to be capable of strain 
energy storage. It is assumed that such storage capability depends on the jump discontinuity 
in the displacement field across the interface itself, the interface temperature and, possibly, its 
microstructure. Second, the interface is assumed to be capable, at least in the initial stage of 
its life, of transferring forces across itself even in the absence of interface deformation, where the 
latter corresponds to a displacement field jump discontinuity as mentioned before. Physically, the 
mechanism responsible for this type of behavior is assumed to be purely dissipative. Third, the 
interface constitutive equations should permit the prediction of crack pattern formation from an 
otherwise fully cohesive interface via bifurcation arguments. The rationale for these requirements 
has been discussed in the introduction. 

The first requirement has been formalized by the assumption that there exists a function ip 
of the interface opening displacement, temperature and microstructure that is a work potential 
for the interface. This idea has been originally explored by Gurtin [14] who provided a useful 
thermodynamic theory for the development of the interface constitutive equations. Within such 
a framework, requirement two has been formalized by a decomposition of the cohesive force a 
into two parts: cr e , cr tr . cr c is assumed to originate from the interface free energy and, in this 
sense, to be the expression of mechanically reversible transformations, such as bond stretching in 
crystalline materials or fibril elastic stretching in polymer crazing. a xr is not assumed to have 
an explicit and one-to-one relationship with the interface opening displacement. This allows the 
interface to transfer forces of various intensity even under the assumption of perfect cohesion, i.e. 
a situation characterized by a null opening displacement. The physics behind the irreversible part 
of the cohesive force a tT depends on the particular system at hand. For example, in the case of 
single craze formation, <x tr can represent the average effect of the forces responsible for the craze 
nucleation through secondary bond breakage. Such forces, which macroscopically appear to be 
acting on the interface surface, do not originate from fibril stretching and for this reason are not 
associated with a particular energy storage mechanism. 

The global thermodynamic analysis presented in section 4 shows that the fields a xr and 6 are 
conjugate with respect to the global free energy of the system. This result leads naturally to 
the hypothesis that the relationship between the fields cr tr and 6 is governed by an equation of 
evolution. It should be noted that global thermodynamics becomes an almost indispensable tool in 
the thermodynamic analysis of multi-phase systems like the one considered herein (i.e. body-plus- 
interface). In particular global thermodynamics is extremely useful in the analysis of composite 
materials with an evolving internal microstructure. 

The present theory has been shown to encompass most of the cohesive zone models available 
from the literature and, as shown in section 6.2, to satisfy the third of the requirements listed above 
under the assumption that the interface free energy is non-convex. 
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In section 6.3 the proposed model has been shown to have another important characteristic, 
namely that of naturally recovering the classical results of fracture mechanics once a macroscopic 
crack propagates along the interface in a self-similar fashion. In particular, the relationship between 
the interface dissipative behavior and the crack evolution law has been established. 
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MODELING OF DAMAGE EVOLUTION IN THICK LAMINATES 
SUBJECTED TO LOW VELOCITY IMPACT 
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ABSTRACT 

Close examination of the delaminated surfaces of laminated polymeric composites will 
often reveal the presence of a damage zone ahead of the advancing delamination. In 
thermosetting polymeric matrices, the damage zone will most likely contain micro-shear 
cracks. Their presence can introduce noniinearities to the response of the interface and 
thus affect the growth of the delamination. The evolution of delaminations containing 
this type of damage zone is examined. The formation of the damage zone is modeled 
via a non-linear interfacial constitutive relationship that is based on a micro-mechanics 
solution for distributed non-interacting cracks. The mechanical characteristics of the 
interface constitutive relationship are examined. In addition, the delamination behavior 
of a laminate possessing this type of interfacial response and subjected to simulated low 
velocity impact condition is investigated. 


INTRODUCTION 

Laminated polymeric composites are prone to the formation of delaminations when 
subjected to low velocity impact loads. In addition to reducing the mechanical proper- 
ties of the laminate, these delaminations can serve as initiators of other damage modes 
and can cause the failure of the laminate. Thus, the ability to model the low velocity 
impact damage process is crucial for the safe and efficient design of laminated composite 
structures. 

It has been found from micrographic and fractographic examinations of delaminations 
that a damage zone develops ahead of the delamination front [1-9]. The mechanisms in 
this damage zone are dependent on the molecular structure of the resin rich interface. 
Micro-shear cracks are found in thermosetting resins and crazes are prevalent in thermo- 
plastics. In general, the tendency to develop crazes or micro-shear cracks is dependent 
on the distance between chain entanglements or crosslinks in the molecule [10]. When 
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the molecular weight between side attachments is below a critical number, the crazing 
mechanism is suppressed and micro-cracking is activated. The presence of this process 
zone in the interface introduces nonlinearities to the interfacial response and thus affects 
the propagation of the delamination in the interface. Therefore, it should be included 
in the low velocity impact damage analysis. However, the interface region containing a 
process zone is not modeled in most low velocity impact damage analyses and of those 
analyses that do take this resin rich region into account most arc for modeling linear 
elastic interleaves [11-13]. Some exceptions include Ladevezc’s damage model in which 
the interface is explicitly modeled [14]. In his model, the mechanical properties of the 
interface are governed by internal damage variables. Since the internal state variables arc 
volume averaged representations of the damage state, the stresses and strains obtained 
from this analysis are also averaged quantities. Lo et al. [15] accounted for the effects 
of the process zone by employing the interfacial constitutive relationships developed by 
Needleman [16] and Tvergaard [17]. These constitutive models assumed that the force 
normal to the interface behaves in a manner similar to the interatomic forces generated 
during the interatomic separation. While the aforementioned models introduce nonlin- 
ear response to the mechanical behavior of the interface, these models do not distinguish 
between the different mechanisms active in the process zone. The current paper will 
focus on the development of delaminations in thermosetting matrix composites and thus 
damage zones containing micro-shear cracks will be considered. An interface constitutive 
relationship adapted from a micro-mechanical solution for a micro-cracked solid will be 
employed in the analysis. 


INTERFACE MODELING 

When the delaminated interfaces are examined optically under magnification, the pres- 
ence of the micro-shear cracks is revealed by surface artifacts that appear as regularly 
stacked arrays of platelets. Their appearance is very much reminiscent of rows of domi- 
noes that have been tipped over. This surface feature, commonly referred to as “hackles”, 
is formed by microcracking perpendicular to the plane of principal stress in the resin rich 
interface [4j. Morris [9] has suggested that the hackles are formed in a peeling manner 
while Purslow [7] has proposed the coalescent of the micro shear cracks as the cause of 
the hackles as shown in Figure 1. Experimental evidence indicates that the spacing of 
the platelets appears to be related to the opening mode of the delaminated interface 
[18]. Under mode 1 opening condition, the hackle pattern may not be present, but as 
the contribution from mode II opening is increased, the spacing between the platelets 
becomes smaller. Therefore, it can be assumed that the micro-shear crack spacing also 
decreases with increasing mode II loading contribution. These experimental observations 
now serve as a guide in our development of an interface constitutive relationship. 

In the current study, the response of the interface is assumed to behave isotropically 
when no micro-cracks are present. As the load is increased and the micro-cracks ac- 
cumulate, the mechanical properties of the interface are degraded in accordance with 
the orientation and distribution of the microcracks. This then causes the mechanical re- 
sponse to behave orthotropically. For the case of non-interacting cracks with an arbitrary 
crack orientation distribution, the effective moduli for this type of material have been 
calculated by Kachanov. This method is based on the superposition of the solution for 
the averaged crack surface displacement of a single isolated crack subjected to remotely 
applied stresses. Since the mutual positions of the cracks do not enter into the analysis 
under the non-interaction assumption, the overall effect of the crack array is simply the 
sum of the contribution from each isolated crack. While the non-interaction assumption 
may not be suitable for some crack distributions, it does simplify the calculations and 
yields an approximation of the mechanical response for those distributions. The clastic 
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potential of the cracked body in a state of plane stress was expressed by Kachanov [ 1 9 j 
as 

ft \ 1 “h Vo / .9 7T 

= ~2Er a ' }Cx) " 2E~} akk ^ + Y ai)<JjkCClk (0 

where £/ is the Poisson ratio, £? is the Young’s modulus (The subscript u o” denotes the 
undamage isotropic properties and for a state of plane strain, E 0 is replaced with ~'' t ? 

and u a with l .), a XJ are components of the stress tensor, and a,^ is the crack density 
tensor, defined by 

1 M 

° 1 k ~ (^m n m, n m k ) (2) 

m=l 

where the summation is performed over the M number of cracks found in the represen- 
tative area, A. l m and n mt are the length and components of the crack surface normal of 
the m crack, respectively. The compliance tensor, S„jt p , of the cracked solid is obtained 
from 

. _ d 2 f 

~' jkp da ti da kp f (3) 

Since the crack density tensor is a real symmetric tensor, it can be expressed in terms 
of its principal values as follows: 


°ij — Pi^iTi, T P2^2T2, (4) 

where p x and p 2 are the principal values and e x and e 2 are the principal vectors. This is a 
convenient reference frame to work in as the material orthotropy axes are coincident with 
the principal axes of the damage density tensor. If all the cracks in the representative 
area are oriented normal to the e 2 axis, pi is equal to zero and the effective moduli have 
been found by Kachanov to be 
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where G 0 is the undamage shear modulus. Note that these effective moduli are referenced 
to the principal crack density axes. To obtain the effective properties referenced to 
another set of coordinate axes, the stiffness tensor is first constructed using the quantities 
shown in Equations (5-9) and then transformed to the new coordinate axes. 

The crack damage tensor as defined by Equation (2) requires the knowledge of the 
number of cracks in the representative area, the individual crack length and their spatial 
orientation. Since there could be many micro-cracks embedded in the resin rich inter- 
face, simplifying assumptions are taken to maintain tractability of the problem. Base 
on experimental observations that the micro-cracks form perpendicular to the plane of 
principal stress, the initial orientation can be determined from the stress state just prior 
to initiation. Although as the micro-crack grows, the stress state will change and cause 
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the micro-cracks to diverge from their initial orientation, it will be assumed that the 
micro-crack orientation remains constant. Furthermore, subsequent micro-cracks in the 
representative area will share the same orientation. Each micro-crack is assumed to 
grow instantaneously to a final crack length, /, as dictated by an intcrfacial thickness 
parameter, t inU as given by 

l=0tint (10) 

where p is the micro-crack length scaling factor. The accumulation of the micro-cracks 
is related to the maximum interfacial separation experienced by the representative area 
during the loading history in the following manner 


17 = A Max (^— —) (11) 

where rj is the number of micro-cracks in the representative area, u t is the tangential 
interfacial separation, and A is the micro-crack accumulation parameter. Thus, when the 
interface is only opening in mode I, there will not be any accumulation of micro-cracks 
and as the mode II separation is introduced, the micro-cracks evolve accordingly. Finally, 
the failure of the interface is defined to occur when 


f/ T~2 

tint y \t in t / 



(12) 


where ii n is the normal component of the interfacial separation and 6 crit is a critical 
strain-like constant. The above desciption is similar to the phenomenological models 
previously proposed by Needleman [ 16 ] and Tvergaard [ 17 ]. 


PROBLEM APPROACH 

This interfacial constitutive model is incorporated into an in-house finite element code 
to facilitate the analysis. The damage zone is modeled in a manner similar to the 
Dugdale-Barenblatt cohesive model [20, 21], In this code, the delamination propagates 
along the prescribed inter-element boundaries on which the tractions are specified by the 
interfacial constitutive relationship. Due to the nonlinearity introduced by the micro- 
cracked process zone, the virtual work equation is solved in incremental form, resulting 
in [22]: 6 

/ C; jkl Ac kl 6Ac i3 dV 2= f T t r+Ar 6Au t dS - f a^SAe^dV ( 13 ) 

Jv Jdv J v 1 

where is the material tangent modulus tensor, is the infinitesimal strain tensor, 

T, is the traction vector, Au, is the displacement increment vector, and a XJ is the stress 
tensor. Also, the domain of interest has interior V and boundary dV . The superscript r 
and t + At denote quantities at time r (which are assumed to be known) and quantities 
at time r -f Ar, respectively. In order to focus on the effects of the interface model, the 
modulus tensor, C i; u, is everywhere constant and linear elastic except at the interface. 
The approximate nature of Equation ( 13 ) is due to the deletion of the higher order terms 
in Au, during the the incrementalization process. To account for this approximation, a 
Newton- Raphson iteration scheme is employed for each increment of boundary tractions. 
The displacement increment is thus successively updated as follows for the j th iteration: 

{Au} ; = {Au} i . l + { A Au} ; 




( 14 ) 



where {AAu}j is obtained by solving the following on the j <k iteration: 


[K| r {iAu}, = {F r+ar } - {ft r + a, },_. 


( 15 ) 


where [K] is the global stiffness matrix, {F} is the global force matrix, and {R} is the 
global reaction matrix. 

Equations (14) and (15) are solved recursively until the following convergence criterion 
is satisfied: 


Au II. - I! An 




!i Au |i 
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(16) 


where r tol is a user specified convergence tolerance and the quantities bracketed by the 
double vertical bars are the Euclidean norms. 


COMPUTATIONAL RESULTS 

It was mentioned previously that the response of the interface is dependent on the 
number of micro-cracks, the individual crack lengths, and the spatial orientation of the 
micro-cracks. How these factors affect the mechanical response will be examined in this 
section. This is followed by an analysis of a laminate possessing this type of response at 
the interfaces. 

In this section, all the micro-cracks are assumed to be oriented at 45° unless otherwise 
specified and the undamaged mechanical properties shown in Table 1 are used in The 
calculations. The first factor to be examined is the crack density. Since the number of 
micro-cracks, as shown in Equation (11) : is related to the maximum shearing interfacial 
displacement via the parameter A. this parameter serves as a convenient representation 
of the crack density when comparing the effective properties at a given interfacial dis- 
placement. Figures 2 and 3 show the effective values for two components of the stiffness 
tensor. C nn represents the component normal to the plane of the interface and G nU the 
shearing component. For A = 0.0, no micro-cracks are accumulated and thus the linear 
elastic response is obtained. At other values of A, it is observed that the majority of 
the stiffness reduction occurs during the early part of the damage accumulation. The 
stiffness normal to the interface shows the greater percentage change of the two compo- 
nents to the accumulation micro-cracks. In both cases, the effective properties appear to 
approach “saturated” values as the micro-crack density increases. This is in accordance 
with the expressions for the effective moduli shown in Equations (5-9), but these “sat- 
urated” properties may not be reached in the analysis or in the actual material as the 
interface may suffer catastrophic failure at a lower crack density. 

The effects of the micro-crack length on the normal and shearing components of the 
stiffness tensor are shown in Figures 4 and 5. In this set of data, the micro-crack 
lengths are normalized by the interfacial thickness parameter, t, n *, to yield the scaling 
factor, f3. The most distinct feature of this set of results is the manner in which the 
mechanical properties are reduced. For the shorter normalized lengths, the decrease in 
the effective stiffnesses is more gradual than for the longer micro-crack lengths. The 
results for Q = 0.2 appear to decrease linearly as compared to the results for the other 
micro-crack lengths. While the trends observed for the various micro-crack lengths are 
similar to those observed for the various crack densities, the effects of changing the micro- 
crack length are more pronounced as the crack density tensor defined in Equation (2) is 
dependent on the micro-crack length to the second power and the number of micro-cracks 
only to the first power. 

The last parameter to be examined is the orientation of the micro-cracks. As shown 
in Figure 6. the normal stiffness component, C nn , decreases with an increasing number 
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of micro-cracks. The majority of tlie decrease occurs at the early stages of damage 
accumulation with the smaller angles showing the most decrease in stiffness For a 
given number of micro-cracks, the change in the effective stiffness for a change in the 
orientation angle is greatest in the vicinity of 45°. When the orientations are near 0° or 
90 variation in the orientation angles has only a relatively minor effect on the effective 
stiffness. On the other hand, the shearing stiffness exhibits the opposite trend, as shown 
in Figure 7. The effective shearing stiffnesses for angles between 30° and 60° are almost 
identical for a given number of micro-cracks. Furthermore, the effective shear stiffness 
response is identical for angle pairs that are oriented the same number of degrees above 
and below 45° (eg. 15° and 75*.) Finally, the results indicate that the effective shear 
stiffness curves intersect at a common point for a non-zero number of micro-cracks. The 
order of relative stiffnesses at a given damage state reverses at this point. 

The results presented in this parametric study reflects the mathematical characteris- 
tics of the interfacial constitutive model. This should be correlated with experimental 
measurements to determine the range of response in which the model assumptions are 
valid. Consideration must be taken when evaluating the assumptions to the possibility 
that the interface may have failed before reaching some of these responses. In addition, 
experimental measurements of the energy required to separate the interface will assist in 
the selection of the model parameters. 

Now that the characteristics of the interfacial constitutive model have been examined, 
some of its effects on a laminated composite is examined. Because of the interest in the 
development of low velocity impact induced delaminations, the analysis will be set up 
to approximate the low velocity impact damage event. At the present time, the analysis 
is model as a two dimensional end-clamped center-loaded bending problem. The impact 
induced mid-span displacement is simulated by monotonically increasing displacement 
applied under quasi-static conditions. The stresses in the individual layers and the resin 
rich interface are obtained from the finite element analysis. Delamination propagation is 
evaluated at each displacement increment and if the conditions are sufficient for propaga- 
tion, the amount of growth is calculated and the corresponding changes in the interfacial 
properties are updated for the next displacement increment. This procedure is repeated 
until the maximum mid-span displacement is reached. 


The end-clamped center loaded bending configuration shown in Figure 8 is utilized for 
the analysis. This laminate has a [0 4 /90 4 ! stacking sequence and possess the ply level 
mechanical properties shown in Table 2. The interfacial parameters are listed in Table 
3. Due to the low transverse strength of the lamina, a transverse matrix crack will often 
appear in the mid-span of the 90° layer upon the application of the displacement. This 
transverse matrix crack then serves as the initiation point for the delamination at the 
0 /90 interface. In order to focus on the evolution of this delamination, the transverse 
matrix crack is assumed to exist prior to the application of the mid-span displacement, 
bmee the damage state is assumed to be symmetric about the mid-span, only the right 
half of the span has been modeled by the finite element analysis. 

Figure 9 shows the evolution of the delamination with respect to the mid-span dis- 
placement for several values of the micro-crack accumulation parameter, A. The results 
indicate that the case with the largest value of the A (A = 1.0£5) has the highest rate of 
delamination growth while the lower values of A (A = 1.0£2, 1.02?1, 1.0) have the slow- 
est rates of delamination growth. There are onlv minor differences in the delamination 
evolution predicted by the lower values of A. Since these values translate to a smaller 
number of micro-cracks, the delamination response may be close to that of a laminate 
with a linear elastic interface. Common to all the cases considered is the increase in the 
rate of delamination growth when the delamination reaches a normalized length of 0.1. 
As shown in Figure 10, this increase corresponds to a change in the mode of interfacial 
separation. The delamination starts out opening in a mode II dominant manner, then 
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changes to mode I dominance when the “critical” delamination length is reached. The 
switch to mode I dominance would indicate a reduction in the influence of the micro- 
crack damage zone as the delamination propagates. This is because the accumulation 
of the micro-cracks, in this model, is dependent only on the tangential component of 
the interfacial displacement. However, by changing the laminate stacking sequence it is 
possible to give the damage zone an increasing influence as the delamination grows. 

I he reaction force at the point of mid-span displacement application is shown in Figure 
11. This result corresponds to A = 1.0 E5. As the mid-span displacement is increased 
and the delamination grows, the transverse stiffness of the laminate decreases. While the 
response appears to be relatively smooth, close up examination of the force-displacement 
response indicates instabilities in the form of sudden drops in the reaction force when 
the delamination grows. Figure 12 shows the drop in the reaction force caused by the 
delamination initiation. After this drop, the reaction force increases with increasing mid- 
span displacement. The next drop occurs when sufficient inicro-cracks have accumulated 
in the damage zone for the delamination to advance. From Figure 1 1, it can be surmised 
that the transverse stiffness after the sudden force drop is less than the stiffness prior 
to the delamination propagation. Similar behavior has been observed experimentally 
by Jackson and Poe for quasi-isotropic laminates [23]. They noted that the ability to 
predict the damage dependent reaction force is important in the use of the impact force 
as a scaling parameter for the impact response of laminates. 


CONCLUDING REMARKS 

The formation of a damage zone containing micro-shear cracks and located ahead 
of a delamination crack is accounted for in this analysis of delamination evolution in 
polymeric laminated composites. A sample of the results is presented in this paper. 
In the development of the interfacial constitutive relationship, consideration is given 
to the geometric characteristics of the micro-cracks. Since this interfacial relationship 
is based on a micro-mechanics solution that assumes the non-interaction of the micro- 
cracks, experimental verification must be performed to determine the range of responses 
in which this assumption is valid for the current application. The process in which the 
micro-cracks lead to the failure of the interface also requires further examination. Two 
possible sequences are mentioned in this paper. Both seem plausible and their occurrence 
is most likely dictated by the loading condition. The interfacial failure criterion should 
be updated to reflect this. These issues will be the subject of future investigations. 
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Table 1. Undamaged Isotropic Interfacial Constitutive Properties 


E 0 

1.4 Msi (9.65 GPa) 


0.3 

G 0 

0.5 Msi (3A5GPa) 


Table 2. Ply Level Mechanical Properties for Laminates Tested 


E z 

17.4 Msi 

(120.0 GPa) 

Ey 

1.4 Msi 

(9.8 GPa) 

E : 

1.4 Msi 

(9.8 GPa) 

G X y 

0.8 Msi 

(5.2 GPa) 

Gyz 

0.5 Msi 

(3.5 GPa) 


0.3 

v y- 

0.3 


Table 3. Interfacial Model Parameters for End-Clamped 
Center-Loaded Bending Test Case 


E 0 

1.4 M si 

( 9.65 GPa ) 


0.3 

G 0 

0.5 Msi 

( 3.45 GPa ) 

^ cnt 

0.0058 in. 

( 0.15 mm ) 

A 

100000.0 

^int 

0.0002 in. 

( 0.0 1 mm ) 

P 

1.0 
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Figure 2 . The effect of the micro-crack accumulation parameter, A, on the normal stiff- 
ness component, C nn . 
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Figure 3. The effect of the micro-crack accumulation parameter, A, on the shearing 
stiffness component, G nt . 
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Figure 4. The effect of the normahzed micro-crack length, /?, on the normal stiffness 
component, C nn . 
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Figure 5. The effect of the normalized micro-crack length, /?, on the shearing stiffness 
component, G nt . 



Figure 6. The efFect of the micro-crack orientation angle, o, on the normal stiffness 
component, C nn . 
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A = 0.2 in. (10.1mm) — — Interfacial Element 

L = 2.0 in. (50.8mm) Locations 


Figure 8. Schematic showing the geometry of the end-clamped center-loaded [O4/9O4] 
laminate used in the analysis. 
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Figure 9 . 


The accumulation of delamination damage in the end-clamped center-loaded 
[O4/9O4] laminate for different values of the damage parameter, A. 



Figure 10. The interfacial displacement ration, u t /u n , at the moment of delamination 
propagation for the end-clamped center-loaded [O4/9O4] laminate. 
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ABSTRACT 

The durability and damage tolerance of laminated composites are critical design 
considerations for airframe composite structures. Therefore, the ability to model damage 
initiation and growth and predict the life of laminated composites is necessary to achieve 
efficient and economical structural designs. The purpose of the research presented in this 
paper is to experimentally verify the application of the damage model developed by the 
authors to predict progressive damage development in a toughened material system. 

Damage growth, stiffness degradation, and residual strength were experimentally 
determined for cross-ply and quasi-isotropic IM7/5260 graphite/bismaleimide laminates due 
to monotonic and tension-tension fatigue. The damage model, which has been 
implemented into a finite element code, was used to predict the stiffness loss and residual 
strength of unnotched and notched laminates. The model predictions were in good 
agreement to experimental results for several different fatigue loading histories and several 
different laminate stacking sequences. 
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Introduction 

Because of their light weight and high specific stiffness, laminated continuous fiber- 
reinforced composite materials are being used in some primary components in aircraft 
structures. However, when subjected to high service loads, environmental attack, impact, 
or a combination of any or all of the above, laminated composite materials may develop 
damage. As the service load or the time in service increases, damage develops and grows 
and could eventually reduce the residual strength of the structure. 

There are four main types of damage. These are matrix cracking, fiber-matrix interface 
debonding, delamination, and fiber fracture. Usually, matrix cracking and fiber-matrix 
interface debonding are the first forms of damage to occur, followed by delamination, and 
finally fiber fracture resulting in catastrophic failure. While matrix cracking is usually 
arrested at the fibers or adjacent plies, it will result in a redistribution of load to the 
surrounding regions. As a result, these surrounding regions contain stress fields which are 
favorable to the initiation and propagation of additional damage. During the accumulation 
of subcritical damage, changes in material stiffness and strength results in the load 
redistribution until the principle load-carrying plies are unable to support the load, in which 
case, catastrophic failure occurs. 

The initiation and propagation of damage is one of the problems in using laminated 
continuous fiber composite structures. To address durability and damage tolerance 
requirements, damage must be modelled and methods developed to predict the residual 
strength and life of composite structures. For example, one of the most complicated 
structural configurations is that of built-up laminated composite structures connected by 
mechanical fasteners such as rivets. These laminates with fastener holes develop local 
damage that cannot be easily treated using stress concentration factors. Another example is 
the non-visible damage that develops during foreign object impacts and ground handling 
accidents. Current methods for treating these local damage details are empirical and very 
conservative. Therefore, an accurate model of the damage initiation and propagation will 



enhance current analysis and design capabilities thus leading to improvements in structural 
efficiency. 

Many damage progression models are being developed to model damage and predict 
life. An example of the type of microcrack damage that is currently being studied by 
damage models is shown by the x-ray radiograph in Figure 1. This damage is both 
stacking sequence dependent and loading history dependent. An overview of damage 
resulting from fatigue loading in composites has been presented by Reifsnider [1,2]. Some 
researchers have tried to model this damage by considering each crack as an internal 
boundary and the stress or displacement fields are obtained either in closed form or 
numerically, such as in finite elements. This approach works well as long as there are a 
relatively small number of cracks. Talug and Reifsnider [3] have obtained finite difference 
approximate solutions to equilibrium equations to solve for interlaminar stresses in 
composite laminates. The "damage tolerance/fail safety methodology" developed by 
O’Brien [4] is an engineering approach to ensuring adequate durability and damage 
tolerance by treating only delamination onset and the subsequent delamination accumulation 
through the laminate thickness. Chang [5] developed a progressive damage model for 
notched composite laminates subjected to monotonic tensile loading. This particular model 
assesses the damage and predicts the ultimate tensile strength in laminates with arbitrary 
ply-orientations via an iterative combination of stress analysis and failure analysis. Chamis 
[6] studied structural characteristics such as natural frequencies and buckling loads and the 
corresponding mode shapes during progressive fracture of angle-plied polymer matrix 
composites. This study concluded that the individual nature of the structural change was 
dependent on laminate configuration, fiber orientation, and the boundary conditions. The 
model proposed by Talreja [7,8,9] incorporates internal state variables (ISV's) for matrix 
cracks and delaminations and exhibits ply stacking sequence dependence. The ISV's are 
strain-like quantities which represent the damage as volume averaged quantities, i.e., a 
continuous medium. 



The treatment of a damaged volume of material as a continuous medium and the 
representation of the damage with averaged quantities was first proposed by Kachanov [10] 
in 1958 and is referred to as continuum damage mechanics. From this concept of 
averaging the effects of microcracking in a small local volume, the authors developed a 
damage model for laminated composites [11-16]. This damage model utilizes internal state 
variables (ISV's) and is phenomenological; however, it is formulated at the ply and 
sublaminate level and accounts for the influence of stacking sequence. The model has been 
recently implemented into a finite element analysis code and has the capability to predict 
damage growth and residual strength for monotonic and tension-tension fatigue loading 
histories. The model was originally developed for brittle graphite/epoxy composite 
systems but has been extended to also address toughened polymer matrix composites. This 
paper will present results tor both unnotched and notched specimens subjected to several 
different monotonic and tatigue loading histories. 


The Allen and Harris Model 

The damage model of Allen and Harris [ 1 1-16] was originally developed to model the 
behavior of microcrack damage in brittle epoxy systems and has recently been extended to 
toughened polymer systems. The model predicts the growth of intraply matrix cracks for 
monotonic tensile loadings and for tension-tension fatigue, the associated ply level damage- 
dependent stress and strain states, and the residual strength of laminates with geometric 
discontinuities. The model also accounts for the effects of delaminations but uses an 
empirical relationship that requires the user to supply an estimate of the delamination area. 
The empirical relationship must be used because the model currently does not calculate free 
edge interlaminar stresses. A summary of the model can be found in the literature [17]. 
The model uses internal state variables (ISV) to represent the local deformation effects of 
the various modes of damage. Loading history dependence is modelled by ISV damage 
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growth laws. The progression of damage is predicted by an iterative and incremental 
procedure outlined in the flowchart shown in Figure 2. This entire progressive failure 
analysis scheme has been implemented into the finite element formulation in the NASA 
Computational Mechanics Testbed (COMET) [18] computer code. The first block of 
Figure 2 is a description of the information needed as model input A FORTRAN code 
consisting of the damage dependent constitutive model and a damage growth law for matrix 
cracking was incorporated into a classical lamination theory analysis to produce effective 
lamina and laminate properties for unnotched laminates. The program is called FLAMSTR 
(Fatigue LAMinate STRess) [19] and makes up the first constitutive module. The fourth 
block is a damage dependent finite element analysis code [18] from which the second 
constitutive module performs a ply level elemental stress analysis and simulates damage 
growth via damage growth laws for each element. The damage growth calculations, block 
six, are used to update the damage state, block seven, for the notched laminates. For 
unnotched laminates, only the first constitutive module is needed to update the damage 
state. 


The material property descriptions required for the model include standard ply stiffness 
and strength data determined in the usual manner. In addition, the tension-tension fatigue 
matrix crack growth law must be determined from test data obtained from the [0/902/0]$ 
laminate. Under tension-tension fatigue, matrix cracks accumulates in the 90 degree layers 


and, therefore, the effects of mode I matrix crack growth is isolated.^ The mode II matrix 
crack growth law can be obtained from fatigue tests of the [45/-45] s laminate which isolates 
the 45 degree plies in pure shear. A p rocedu re' (^9]yhas been developed for determining the 
ISV (damage parameters) from the test data obtained from these two laminates. _ 
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Experimental Procedures 

The material chosen to experimentally verify the continuum damage model was 


EM7/5260 graphite/bismaleimide laminates. This material system was fabricated with a 



toughened interlayer between the plies of the laminate. Cross-ply and quasi-isotropic 
laminates were tested with the following stacking sequences: [0/902/0] s , [0/903] s , [0/45/- 
45/90] s , and [90/-45/45/0] s . The laminates were cut into 2.54 cm x 25.4 cm (l"xl0") 
coupons, both unnotched and notched. The notched laminates had a 6.35 mm (1/4 inch) 
hole drilled in the center. 

Each laminate was subjected to tension-tension fatigue up to 100,000 cycles at a 
frequency of 5 Hz and a stress ratio of 0.1. Prior to the fatigue tests, several unnotched 
and notched specimens from each laminate were monotonically loaded to failure to measure 
the ultimate strength and the open-hole residual strength of each laminate. This data 
provided a baseline for assessing the effects of the fatigue loading history on residual 
strength. For each cross-ply laminate, three replicate specimens were subjected to a 
maximum tension fatigue stress of 30% of the ultimate failure strength of the laminate and 
an additional three replicate specimens were tested at 60% of ultimate. For the quasi- 
isotropic laminates, three replicate specimens were subjected to a maximum tension fatigue 
stress of 50% of the ultimate failure strength of the laminate and an additional three were 
tested at 60% of ultimate. In situ edge replicas and x-ray radiographs to characterize 
damage were taken throughout the testing and the specimen did not have to be removed 
from the load frame. The edge replicas and x-ray radiographs provided the means to 
measure matrix crack and delamination surface areas. A Direct Current Displacement 
Transducer (DCDT) with a 4" gage length was used to measure strain and remained 
secured to the specimen throughout the test The fatigue test was stopped periodically to 
take edge replicas and x-rays, and to monotonically load the specimen to record the stress- 
strain behavior. At the end of 100,000 fatigue cycles, the specimens were monotonically 
loaded to failure to record the post-fatigue residual strength of each laminate. 

The material damage parameters for the model were determined from the fatigue tests of 
the unnotched [0/902/0] s laminate. The crack surface area as a function of fatigue cycles 
was measured from the edge replicas and the x-ray radiographs [20], From this data, the 
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matrix crack internal state variables were calculated and used to determine the material 
parameters. The parameters are then used in the matrix crack growth law to compute the 
predicted damage evolution, stiffness loss, and residual strength for the other 3 laminate 
stacking sequences. For those laminates exhibiting significant delaminations, the 
delamination surface area and locations were determined from the x-ray radiographs and 
edge replicas and used in an empirical relationship contained in the damage model. 


Comparisons of Model Predictions to Experimental Results 





The material damage parameters determined experimentally for the mode I matrix 
cracking growth law were used in a fatigue laminate stress program (FLAMSTR) [19] and 
a damage dependent finite element code installed in the COMET [18] to predict reductions 
in stiffness due matrix cracking. Predictions for the [0/903] s laminate are illustrated in 
Figure 3. The predicted reductions in stiffness are in close agreement with the experimental 
stiffness loss which is due solely to matrix cracking in the 90 degree plies. The distinct 
trends for the two different constant amplitude maximum stress levels are accurately 
predicted. 

The [0/4 5/-45/90] s laminate exhibited edge delaminations primarily at the -45/90 
interface. The experimentally measured delamination surface areas were used to predict 
stiffness loss due to delaminations and the matrix crack growth law was used to analytically 
predict the growth of matrix cracks in the various plies of the laminate. The experimental 
results are compared to the model predictions for the two maximum fatigue stress levels in 
FiguresV Once again, the model predictions are accurate. The stiffness loss in the quasi- 
isotropic laminate was more significantly effected by the delaminations than by the intraply 
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matrix cracks. 



The effects of different delamination growth patterns was illustrated by the different 
behavior of the [90/-45/45/0] s and [0/45/-45/90] s quasi-isotropic laminates. The x-ray 
radiographs reveiled that the delaminations in the [90/-45/45/0]s laminate were localized 
whereas the [0/45/-45/90] s laminate exhibited large prominent edge delaminations. The 
stiffness loss of a [90/-45/45/0] s laminate is given in Figure 5. Again, the model correctly 
predicted the stiffness behavior as a function of the fatigue loading history. (Close 
attention should be paid to the differences between the effects of edge delaminations and 
local delaminations [21].) 

The analysis of the notched laminates yielded good results as well. Figure 6 shows the 
damase state in the open-hole specimens for the two different stacking sequences. It would 
be expected that the matrix crack in the 0-degree ply adjacent to the hole (axial split) would 
have a significant effect in reducing the stress concentration at the notch. This would 
increase the global displacements of the laminate prior to failure. The damage dependent 
finite element code [ 1 8] implemented into the NASA COMET was used to calculate matrix 
crack damage growth, laminate stresses and strains, and far field displacements. The finite 
element mesh shown in Figure 7 is a quarter section of the notched laminate. The finite 
element code predicts the damage state in each element as a function of the local element 
stresses. An iterative procedure is used to calculate the element damage-dependent 
properties and associated load redistribution throughout the finite element model. The 
analytical far field displacements calculated over a 4" gage length are compared to the 
experimental stiffness loss in Figure 8. This figure illustrates the ability of the code to 
predict separate trends in stiffness reductions due to mode I matrix cracking for different 
constant amplitude stress levels and layups for a spatially varying damage state. Edge and 
local delaminations were included in the predictions and were found to have very little 
effect, especially compared to the mode I matrix cracking of the axial split for the [0/903]$ 
laminate. The comparison of the results for the two laminates given in Figures 6 and 8 
confirms the ability of this model to predict damage growth as a function of the laminate 
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stacking sequence. The [0/903] s laminate has more severe axial splitting, i.e. more mode I 
matrix cracking, thus the predicted loss in stiffness due to mode I matrix cracking is larger. 

The reductions in stiffness are greater for this laminate because more load is transferred 
away from the stress concentration at the hole. 

Residual Strength 

Residual strength predictions were also made for the two laminates and damage states 
shown in Figure 6. A more refined finite element mesh is required for residual strength 
predictions than for stiffness loss predictions. The mesh shown in Figure 9 was used to 
predict the residual strength. The mesh near the hole was refined in order to try to capture 
the local stress effects produced by the pronounced axial split in the O-degree plies. The 
comparison of the model predictions to the experimental results are shown in Figure 10. 

The model uses a simple maximum strain failure criterion for the fibers as determined from 

the ultimate tensile strength of the 0-degree unidirectional laminate. When the fiber ( 

direction strain in the principal load-carrying ply reaches the fiber failure strain, the element- m G CM- c 

will not sustain additional load, ie, the material is assumed to exhibit elastic-perfectly plastic 

behavior. Progressive failure is then predicted by an iterative process to account for the 

interelement load redistribution after an element has been determined to have fiber fracture. 

The loads applied to the model boundaries are then incrementally increased until complete 
failure occurs. The fiber failure criterion and the computational procedure are currently 
under investigation. The authors believe the accuracy of the model will be gready j 

improved by implemenung a more sophisticated failure criterion. ' 


Conclusions 

The damage model developed by Allen and Harris was used successfully to predict the 
stiffness degradauon and residual strength of the IM7/5260 toughened matrix composite 



material. Experimental verification of the model was established by comparing the stiffness 
loss of cross-ply and quasi-isotropic laminates with and without open holes for tension 
fatigue loadings. Residual strength predictions were also reasonably close to the 
experimental values. The model has predictive capability for intraply matrix cracks and 
correlative capability for delaminations. The model successfully predicted both the effects 
of laminate stacking sequence and loading history on damage growth and stiffness loss. 

The ability of the model to predict damage growth in the open hole specimens was 
particularly encouraging. These results suggest that the model is appropriate for spatially 
varying damage developing in strain gradient fields and not confined to uniform damage 
that develops in the gage length of an unnotched uniaxial test specimen. The spatial 
variation in damage is treated through the finite element discretization since the damage is 
assumed to be uniform within an element. The empirical relationship for delamination 
provided trends in stiffness loss that agreed with the experimental trends. It should be 
noted, however, that the predictive capability of this model would increase dramatically if 
delamination growth laws were available. Also, a more sophisticated fiber failure criterion 
and computational procedure needs to be developed to improve the accuracy of the residual 
strength predictions. 
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Figure 2 - Progressive Failure Analysis Scheme 
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Figure Vi - Stiffness Degradation of [90/-45/45/0] s IM7/5260. 
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Figure fg - Stiffness Loss of IM7/5260 Laminates 
with a Central Circular Notch. 
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Delamination Evolution in Composites 
Using a Cohesive Zone Model 


D. C. Lo, F. Costanzo, and D. H. Allen 
Texas A&M University, Texas, U.S.A. 


1. INTRODUCTION 

It has been found from micrographic and fractographic examinations of delam- 
inations that a damage zone develops ahead of the delamination front in many 
polymeric composites [1*3], The presence of this damage zone in the interface in- 
troduces nonlinearities to the interfacial response and thus affects the propagation 
of the delamination in the interface. Lo et al. [4-6] previously modeled the re- 
sponse of the damage zone by employing the interfacial constitutive relationships 
developed by Needleman [7] and Tvergaard [8]* While the aforementioned models 
introduce nonlinear response to the mechanical behavior of the interface, these 
models do not distinguish between the different mechanisms active in the damage 
zone. The current paper will focus on the development of delaminations with a 
damage zone containing micro cracks. This type of damage zone is usually found in 
thermosetting matrix composites. An interface constitutive relationship adapted 
from a micro-mechanical solution for a micro-cracked solid will be employed in the 
analysis. 

2. INTERFACE MODELING 

In the current study, the response of the interface is assumed to behave isotrop- 
ically when no micro-cracks are present. As the load is increased and the micro- 
cracks accumulate, the mechanical properties of the interface are degraded in ac- 
cordance with the orientation and distribution of the microcracks. This then causes 
the mechanical response to behave orthotropically. For the case of non-interacting 
cracks with an arbitrary crack orientation distribution, the effective moduli for 
this type of material have been calculated by Kachanov [9]. This method is based 
on the superposition of the solution for the averaged crack surface displacement 
of a single isolated crack subjected to remotely applied stresses. Since the mutual 
positions of the cracks do not enter into the analysis under the non-interaction as- 
sumption, the overall effect of the crack array is simply the sum of the contribution 



from each isolated crack. If it is assumed that all the cracks in the representative 
area are oriented in the same direction, the effective moduli axe 
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where E a , v a , and G c are the undamage Young’s modulus, Poisson’s ratio, and 
shear modulus, respectively, p is the micro-crack damage variable and is defined 

as 



m=l 


( 6 ) 


where the summation is performed over the M number of cracks found in the 
representative area, A. / m is the length of the m th crack. Note that these effective 
moduli are referenced to the physical crack axes. (The subscripts “1” and “2” de- 
noting the axes parallel and perpendicular to the length of the crack, respectively.) 
Base on experimental observations that the micro-cracks form perpendicular to the 
plane of principal stress, the micro-crack orientation can be determined from the 
stress state in the interface. 

The micro-crack damage variable as defined by Equation (6) requires the knowl- 
edge of the number of cracks in the representative area and the individual crack 
length. Since there could be many micro-cracks embedded in the resin rich inter- 
face, simplifying assumptions axe taken to maintain tractability of the problem. 
Firstly, each micro-crack is assumed to grow instantaneously to a final crack length, 
f, as dictated by an interfacial thickness parameter, ti nt , in the following manner 


l = Pt int (7) 

where /3 is the micro-crack length scaling factor. Second, the accumulation of 
micro-cracks is related to the highest principal stress experienced by the represen- 
tative area as shown 

V = AMax (<7 Pma J (8) 

where r] is the number of micro-cracks in the representative area, crp max is the 
maximum principal stress at a given stress state, and A is the micro-crack 



accumulation parameter. Finally, the failure of the interface is defined to occur 
when 



where u n and u t are the normal and tangential components of the interfacial sep- 
aration, respectively, and 6 cr i t is a critical strain-like constant. The above descrip- 
tion is similar to the phenomenological models previously proposed by Needleman 
[7] and Tvergaard [8]. This interfacial constitutive model is incorporated into an 
in-house two dimensional finite element code to facilitate the analysis [4-6]. The 
damage zone is modeled in a manner similar to the Dugdale-Barenblatt cohesive 
model [10,11]. In this code, the delamination propagates along the prescribed 
inter-element boundaries on which the tractions are specified by the interfacial 
constitutive relationship. Due to the nonlinearity introduced by the micro-cracked 
cohesive zone, incremental and iterative solution techniques are employed with the 
finite element algorithm. Delamination propagation is evaluated at each load step. 


3. COMPUTATIONAL RESULTS 

This model was applied to the analysis of low velocity impact induced delam- 
ination damage. The impact problem was modeled as a two dimensional three- 
point bending problem where the impact induced displacement was simulated by a 
monotonically increasing displacement applied at the mid-span under quasi-static 
conditions. The stresses in the individual layers of the laminate and the resin 
rich interfaces were obtained from the finite element analysis. To focus on the 
effects of the interface model, the mechanical properties of the individual layers 
were everywhere constant and Unear elastic. The accumulation of micro-damage in 
the interface was evaluated at each displacement increment and the corresponding 
changes in the interfacial properties were updated for the next displacement incre- 
ment. This procedure was repeated until the interface fails and the delamination 
advances. 

The three point bending configuration shown in Fig.l was utilized for the anal- 
ysis. This laminate has a [ 9 O 4 / 0g]^ stacking sequence and possess the ply level 
mechanical properties shown in Table 1. The interfacial parameters are Usted 
in Table 2. Due to the low transverse strength of the lamina, a transverse ma- 
trix crack will often appear in the mid-span of the bottom 90° layer upon the 
appUcation of the displacement. This transverse matrix crack then serves as 
the initiation point for the delamination at the bottom interface. In the cur- 
rent test case it was assumed to exist prior to any mid-span deflection. Fur- 
thermore, the damage state was assumed to be symmetric about the mid-span, 
thus only the right half of the span was modeled by the finite element analysis. 
In figure 2, the model predicted delamination evolution is shown along with the 
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Figure 1. Schematic of the 3-point bending test case. 


Table 1. Ply Level Mechanical Properties 


17.4 Msi (120.0 GPa) 



mm 

1.4 Msi 

(9.8 GPa) 

E z 

1.4 Msi 

(9.8 GPa) 

Gxy 

0.8 Msi 

(5.2 GPa) 

G yz 

0.5 Msi 

(3.5 GPa) 

Vx y 

0.3 

v y* 

0.3 



Table 2. Interfacial Model Parameters for 3-Point 
Bending Test Case 
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Figure 2. The accumulation of delamination damage in the [{JCL/Og] laminate. 

experimental data obtained from displacement controlled three-point bend tests. 
Damage initiation occurred at a lower mid-span displacement than those observed 
experimentally. This was attributed to the prior existence of the matrix crack in 
the finite element model. However, the model predictions were in good agreement 
with the experimentally observed delamination evolution in the region of the inter- 
face away from the matrix crack. To remedy the early delamination initiation, the 
matrix crack can be modeled as an interface and allowed to evolve as the mid-span 
displacement is applied. 

4. CONCLUDING REMARKS 

The formation of a damage zone containing micro-shear cracks and located 
ahead of a delamination crack is accounted for in this analysis of delamination 
evolution in polymeric laminated composites via a cohesive zone model. In the 
development of the interfacial constitutive relationship, consideration is given to 
the geometric characteristics of the micro-cracks. Since this interfacial relationship 
is based on a micro- mechanics solution that assumes the non-interaction of the 
micro-cracks, further investigation is required to determine the range of responses 
in which this assumption is valid. 




5. ACKNOWLEDGMENT 


The authors are grateful for the support provided by NASA Contract No. 

32531—40960 to Texas A&M University. 

6. REFERENCES 

[1] Bascom, W.D. and Gweon, S.Y.; “Fractography and Failure Mechanisms 
of Carbon Fiber- Rein forced Composite Materials,” Fractography and Fail- 
ure Mechanisms of Polymers and Composites A.C. Roulin- Moloney , edt., 
Elsevier Science Publishing Co., New York, N.Y. , pp. 351-385 , 1989 . 

[2] Chakachery, E.A. and Bradley, W.L.; U A Comparison of the Crack Tip Dam- 
age Zone for Fracture of Hexcel F185 Neat Resin and T6T145/F185 Com- 
posite,” Polymer Engineering and Science , Vol. 27, No. 1, pp. 33-40, 
Mid-January, 1987. 

[3] Purslow, D.;“Matrix Fractography of Fibre- Reinforced Epoxy Composites,” 
Composites, Vol. 17, No. 4, pp. 289-303, October, 1986. 

[4] Lo, D.C., Costanzo, F., Zocher, M.A., and Allen, D.H., w Modeling of Damage 
Evolution in Thick Laminates Subjected to Low Velocity Impact,” Mechanics 
of Thick Composites, AMD-Vol. 162, Y.D.S. Rajapakse, Ed., American 
Society of Mechanical Engineers, New York, 1993, pp. 137-150. 

[5] Lo, D.C. and Allen, D.H.; “Modeling the Damage Evolution in Laminated 
Composites with Delaminations Containing a Damage Zone,” Damage Me- 
chanics in Composites 1994, AMD-Vol. 185, D.H. Allen and J.W. Ju, Eds., 
American Society of Mechanical Engineers, New York, 1994, pp. 57-65. 

[6] Lo, D.C. and Allen, D.H.; “Modeling of Delamination Damage Evolution 
in Laminated Composites Subjected to Low Velocity Impact,” submitted to 
the International Journal of Damage Mechanics. 

[7] Needleman, A.; “A Continuum Model for Void Nucleation by Inclusion 
Debonding,” Journal of Applied Mechanics, Vol. 54, pp.525-531, 1987. 

[8] Tvergaard, V.; “Effects of Fibre Debonding in a Whisker— Reinforced Metal,” 
Materials 5ctence & Engineering A: Structural Materials: Properties , Mi- 
crostructure, and Processing, Vol. A125, No.2, pp. 203-213, June 1 1990. 

[9] Kachanov, M.; “Effective Elastic Properties of Cracked Solids: Critical Re- 
view of Some Basic Concepts,” Applied Mechanics Review, Vol.45, No. 8, 
pp. 304-335, August 1992. 

[10] Dugdale, D.S.; “Yielding of Steel Sheets Containing Slits,” Journal of the 
Mechanics and Physics of Solids , Vol. 8, pp. 100-104, 1960. 

[11] Barenblatt, G.I.; “The Mathematical Theory of Equilibrium Cracks in Brit- 
tle Fracture,” Advances in Applied Mechanics, Vol. 7, pp.55-129, 1962. 



Submitted for publication in the proceedings of the Symposium on 
Dynamic Behavior and Response of Composites to be held at the 
1995 ASME Winter Annual Meeting (International Mechanical 
Engineering Congress and Exposition), San Francisco, California, 
November 12-17, 1995. 


DAMAGE EVOLUTION IN VISCOELASTIC COMPOSITES 
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ABSTRACT 

The development of delamination damage in a viscoelastic laminated composite is 
examined in this paper. Mechanical response at the ply level is obtained from microme- 
chanics in which the matrix is assumed to possess viscoelastic behavior. This model 
accounts for the process zone that forms ahead of the delamination via nonlinear in- 
terfacial constitutive responses. The transformation of this process zone into a pair of 
delaminated surfaces is dictated by the interfacial opening displacement. Simulations 
of delamination evolution in cross- plied laminates subjected to displacement controlled 
three-point bending indicate a considerable amount of damage occurs while at constant 
mid-span displacement. 


INTRODUCTION 

Laminated polymeric composites are susceptible to delamination damage when sub- 
jected to low velocity impact loads. This type of damage can be very detrimental to the 
structure as the mechanical properties can be greatly reduced. The delamination can 
further serve as initiators of other damage modes and can cause the catastrophic failure 
of the structure. In order to produce safe and efficient laminated composite structure, 
the capability to predict the effect of the delamination damage on the component and 
the subsequent response must be developed. 

It has been observed that a process zone develops ahead of the delamination front. 
The presence of this process zone in the interface introduces nonlinearities to the inter- 
facial response. This in turn affects the propagation of the delamination in the interface 
and thus the overall response of the laminate. It is therefore important to include the 
effects of the process zone into the delamination damage analysis. Lo and Allen [l] 
have accounted for the effects of the process zone in a manner similar to the Dugdale- 
Barenblatt cohesive model [2, 3]. The interfacial tractions ahead of the delamination 
followed the constitutive relationships developed by Needleman [4] and Tvergaard [5]. 



In these constitutive models the force normal to the interface behaves in a manner similar 
to the interatomic forces generated during the interatomic separation. Recently, a mi- 
cromechanics based interfacial model have been employed by Lo and Allen [6], Ladeveze 
approached this problem by modeling the interface explicitly in his finite element mesh. 
The interfacial constitutive equation employed internal damage variable to represent the 
damage ahead of the delamination [7]. These studies assumed that the non linearities 
reside solely in the constitutive response of the resin rich interface. In the present work, 
the delamination damage analysis performed by Lo and Allen [l] is extended to account 
for the viscoelastic responses in the surrounding plies. The motivation for including vis- 
coelastic effects arises from the current interest in using polymer matrix composites in 
propulsion systems and high speed aerospace transports. 


PROBLEM STATEMENT 

The problem of a crack propagating through a linear viscoelastic body can be posed as 
an initial/boundary value problem by replacing the physical crack with a thin cohesive 
strip. This, of course, necessitates the apriori specification of the crack path. Since, 
it can be assumed for the current application that the crack propagates through the 
resin rich ply interfaces, the placement of the cohesive strips is known. With this in 
consideration, the initial/ boundary value problem is expressed mathematically as, 
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with the following boundary conditions: 
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Ti = Ti(u) on S 3 
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and the following initial conditions (t < 0): 


= 0 
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a iy (x,t) =0 
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where equations (l) and (2) are, respectively, the conservation of linear and angular 
momentum in which <7{y are components of the stress tensor. The current form of these 
equations assumes that the body is in static equilibrium and is absent of body forces and 
moments. Equation (3) is the strain-displacement relation where Cij are components 
of the infinitesimal strain tensor and are the displacement components. Equation 
(4) is the constitutive equation for a linear viscoelastic material. Cij^t are components 
of the relaxation modulus tensor. The tractions, T^, are prescribed along Si and the 



displacements, u,, are imposed over 52. The cohesive strip is represented by the surface 
(or curve in two dimensions), 53, where 

5 3 = 5++5 3 “. (10) 

5^ and 5 3 represent the upper and lower crack surfaces, respectively. Associated with 
these surfaces are their respective crack surface normals, nj and nj . In the undeformed 
state, these surfaces occupy the same space, but as the body deforms, these surfaces 
separate. The distance separating the formerly coincidental points on these surfaces is 
the crack opening displacement, u. Acting on this surface, 5 3 , is a traction, T, whose 
magnitude is a function of the crack opening displacement, ti. For time, t < 0, the body is 
undeformed and is free from residual stresses as indicated by the initial conditions shown 
in equations (8) and (9). The specific constitutive relationships for the viscoelastic body 
and the interfacial traction used in the current study are presented the the following 
sections. 


VISCOELASTIC CONSTITUTIVE RELATIONSHIP 

The relaxation moduli, Cijki t found in equation (4), represent the effective properties 
of a continuous fiber reinforced polymer matrix lamina. These effective viscoelastic 
properties were calculated by Zocher, et al. [8] using Hashin and Rosen’s composite 
cylinders assemblage model [9]. In Zocher’s approach, the fibers were assumed to be 
isotropic linear elastic and the matrix isotropic but linear viscoelastic. This enabled 
the estimation of the nine viscoelastic properties for an orthotropic material with the 
use of only a single constituent viscoelastic property, the matrix relaxation modulus. In 
this study, the matrix relaxation modulus is obtained from experimental data and is 
fitted with a Wiechert model for the numerical calculations. The expressions for these 
orthotropic viscoelastic properties can be found in reference 8. Cijki are then calculated 
from these nine orthotropic viscoelastic properties. 

To facilitate the numerical solution of the initial/boundary value problem, the con- 
stitutive equation shown in equation (4) was rewritten in incremental form (10). If each 
component of the relaxation tensor, is fitted by a Wiechert model such that 
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in which r is the dashpot coefficient, Cijki is the spring constant and M is the 
number of elements in the Wiechert model, then the incremental form of the constitutive 
equation is 


Act,., = C ijtl Acu + Act* 


(13) 


where 


C'ijU = Cijki ^ 
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Equation (4) is now replaced with its incremental form shown in equation ( 11 ) in the 
mathematical statement of the initial/boundary value problem. The derivation of equa- 
tion (13) can be found in reference 10. 


INTERFACE MODELING 

The mechanical response of the resin rich interface is governed by the deformation 
mechanism occurring at the molecular level. These mechanisms include uncoiling and 
straightening of molecular chains, dislocation movement, reorientation of molecular chain 
segments, void formation, and chain breakage [ 11 ], Some of these mechanisms result in 
the formation of micro-cracks and crazes ahead of the delamination [12-16]. Whether 
one or more of these dissipative mechanisms are activated will depend on such factors 
as molecular structure, loading rate, temperature, and processing history. Moreover, the 
mechanical response of the resin in the interface region may be different from that of the 
response measured in bulk resin specimens. The constraints imposed by the reinforcing 
fibers, especially when the resin is sandwiched between two plies with different fiber 
orientations, will alter the stress state in the resin rich region and thus suppressing some 
deformation mechanisms while enabling other deformation mechanisms to occur. 

In the current analysis, a phenomenological constitutive model proposed by Tver- 
gaard [5] is used to approximating the interfacial response. This interface model as- 
sumes that the normal traction exerted on the interface during purely normal separation 
behaves similarly to the interatomic forces during interatomic separation. 

The interface surface tractions for the two dimensional case are described by 
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for 0 < A < 1 . Complete separation occurs when A > 1 . T is the interfacial traction 
and u is the interfacial displacement as mentioned previously. The subscripts n and t 
signify the normal and tangential components of the specific quantity, respectively. cr max 
is the maximum traction acting on the interface during a purely normal separation. <5 
is the characteristic length and a is the ratio of the interfacial shear stiffness to the 
normal stiffness. When the interface is undergoing a pure normal separation, the normal 
component of traction increases to a value of <r m „ at 7 * = ^ then decreases to zero 

at j 11 = 1 as shown in Figure 1 . The associated work done by this traction going from 


to 





= 1 is 


W — 



( 21 ) 



Needleman refers to this as the work of separation. Thus, a larger cr max or S will result 
in a greater amount of energy required to fail an interface. These two parameters also 
control the initial stiffness of the interface as shown by the expression for the initial 
stiffness in the mode I opening case, 


9Tn \ = 27 (7 mqi 

^ ..,,,=0 7 6 n 


( 22 ) 


If the initial stiffness and the work of separation can be determined analytically or 
experimentally, then the model parameters, o mai and 6 can be calculated from equations 
(14) and (15). Although this data is not readily available, equations (14) and (15) are 
used to check whether the selected <7 max and 6 produce values for the work of separation 
and initial stiffness that are reasonable from the physical and computational stand point. 
An often encountered problem is the selection of <7 max and 6 combinations that produce 
high initial stiffnesses as to result in computational difficulties. 


NUMERICAL SOLUTION PROCEDURE 

The constitutive models are incorporated into an in-house finite element code to fa- 
cilitate the analysis. In this code, the delamination propagates along the prescribed 
inter-element boundaries on which the tractions are specified by the interfacial consti- 
tutive relationship. Due to the nonlineanties introduced by the micro-cracked process 
zone and the viscoelastic response, the problem is solved incrementally with the virtual 
work equation expressed in the following form [17]: 

CT^AektSAcijdV 2 J T?+* T 6AuidS- J a^SAe^dV (23) 

where Cijti is the material tangent modulus tensor calculated from equation (13) and 
Au,- is the displacement increment vector. Also, the domain of interest has interior V 
and boundary 5. The superscripts r and t + At denote quantities at time r (which are 
assumed to be known) and quantities at time r + At, respectively. The approximate 
nature of Equation (23) is due to the deletion of the higher order terms in A during 
the incrementalization process. To account for this approximation, a Newton- Raphson 
iteration scheme is employed for each increment of boundary tractions. The displacement 
increment is thus successively updated as follows for the j th iteration: 

{Au},- = {Au},-.! + {AAu}, (24) 

where {AAu}j is obtained by solving the following on the j th iteration: 


[iq r {AAu}, = - {ir+A'fc.i (25) 


where [ K ] is the global stiffness matrix, {F} is the global force matrix, and {/?} is the 
global reaction matrix. 

Equations (14) and (15) are solved recursively until the following convergence criterion 
is satisfied: 
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where r to i is a user specified convergence tolerance and the quantities bracketed by the 
double vertical bars are the Euclidean norms. 



ANALYSIS OF DELAMINATION DAMAGE 

To gain a better understanding on how viscoelastic behavior affected the low velocity 
impact induced damage process, the computational simulation was set up to mimic 
conditions encountered by the laminate during the low velocity impact event. The three 
point bending problem, shown in Figure 2, was considered in the analysis of delamination 
evolution in a laminated composite. This laminate had a [O 6 / 9 O 3 ], stacking sequence and 
possessed the fiber and matrix properties shown in Table 1. Listed in Table 2 are the 
interfacial parameters for Tvergaard’s model. The viscoelastic results presented in this 
section corresponded to the mid-span displacement history shown in Figure 3. During 
the ramp up portion, the mid-span was displaced at 0.001 inches per second for the first 
100 seconds to produce a maximum mid-span displacement of 0.1 inches. Following this 
ramp up, the mid-span displacement was held at 0.1 inches until the simulation ended 
at t = 10000 seconds. For comparative purposes, the delamination evolution responses 
were also generated for the same laminate but with linear elastic behavior at the ply 
level. The mid-span displacement in these cases was increased at a rate of 0.001 inches 
per second until a displacement of 0.1 inches was achieved. This was identical to the 
ramp-up portion of the mid-span displacement history used in the viscoelastic case. In 
the finite element mesh, a transverse matrix crack was positioned at the mid-span of the 
bottom 90° layer to serve as the initiation point at the bottom 0/90 interface. Since the 
damage state was assumed to be symmetric about the mid-span, only the right half of 
the span was modeled in the analysis. Finally, a state of plane strain was assumed in the 
calculations with the predicted interface opening displacements used in the determination 
of delamination propagation. 

Shown in Figure 4 is the predicted delamination evolution in the bottom interface of 
the viscoelastic laminate. In this case, where the interfacial shear stiffness to normal 
stiffness ratio, a, was 0.15, no delamination damage was predicted in the upper 0/90 
interface. Furthermore, the results indicated that the majority of the delamination evo- 
lution occurred after the maximum displacement has been reached. Two third of the 
final delamination length was attributed to propagation during the constant mid-span 
displacement period. The small amount of damage development during the ramp-up 
displacement was in contrast to the linear elastic results shown in Figure 5. At the 
point when the maximum displacement was reached (t=100 sec.), the delamination in 
the elastic laminate was twice the length of the delamination predicted in the viscoelastic 
laminate. However, the delamination for the viscoelastic case grew during the constant 
mid-span displacement period and eventually exceeded the length predicted for the elas- 
tic case. W hen the interfacial shear stiffness to normal stiffness ratio, a, was reduced 
to 0.125, a comparable amount of delamination damage was predicted in the bottom 
interface at t=100 seconds for both the viscoelastic and elastic cases. This is illustrated 
in Figures 6 and 7, respectively. Once again no damage was predicted in the upper 
interface. Subsequent delamination growth during the constant mid-span displacement 
period in the viscoelastic laminate resulted in the final delamination length being almost 
twice that of the elastic case. 


DISCUSSION 

The results presented above illustrates the effects that stress redistribution can have 
on the damage evolution. For the viscoelastic cases, the mechanism for stress redistribu- 
tion is due primarily to the relaxation of the viscoelastic matrix and the accumulation 
of damage. It is possible, for the example shown in Figure 4, that the stress relieve due 
to relaxation near the delamination front operating in conjunction with the nonlinear 
response of the interface hindered the advancement of the delamination during the dis- 
placement ramp-up period. On the structural scale, the shift of load due to relaxation 



from the matrix dominated plies to the fiber dominated ones may have assisted damage 
evolution during the constant mid-span displacement time period. FVom the prelimi- 
nary results presented here, it appears that under certain circumstances, the viscoelastic 
effects cannot be neglected in the analysis. This is exemplified by the case where the 
interfacial shear stiffness to normal stiffness ratio was equal to 0.15. In this case, the 
delamination predicted by assuming ply level viscoelastic response was initially less than 
the elastic results, but with time, the delamination in the viscoelastic laminate actually 
exceeded the elastic prediction. 

In the performance of this analysis, several assumptions were taken concerning the 
constitutive response of the lamina and the resin rich interface. One assumption is the 
elastic response of the reinforcing fibers. While this may be a reasonable assumption 
in the axial direction of the fiber, there could be a noticeable amount of viscoelastic 
response in the radial direction [18]. The absence of time dependence in the interfacial 
constitutive model is another area that warrants further examination. These are some 
of the issues that will be addressed in the continue development of this model. 
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Table 1. Lamina Elastic and Viscoelastic Constituent Properties 





























Figure 1. The response of the normal interfacial traction force to the normal separation 
of the interface as model by Tvergaard [5]. 
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Figure 2. Schematic showing the geometry of the three point loaded [Oe/OOa], laminate 
used in the analysis. 
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Figure 3. Mid-span displacement input used it the three point bending viscoelastic test 
cases. 



Figure 4. Accumulation of delamination damage in the bottom interface of the viscoelas- 
tic [SOs/Oa], laminate with an interfacial shear stiffness to normal stiffness ratio 
of 0.15 . 
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Delamination evolution history for 
linear elastic case A with ramp-up 
displacement input. 
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Delamination evolution history for 
linear elastic case B with ramp-up 
displacement input. 
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Delamination Analysis with Nonlinear COhesive Model 
(DANCOM) 


******************************************* 3 (t ******* 1 n J4( + + )tcj(ti|c ^ ) ^ )(ti ^ + 

C MODIFIED TO INCLUDE DISPLACEMENT BOUNDARY CONDITIONS 
C 

C ALSO MODIFIED TO PLANE STRAIN CONDITIONS 
C 

C Routine to store f orce-di spl acement data added on March 9, 1994 
C by David Lo 
C 

C Modified for non-zero displacement boundary conditions by 
C David Lo on April 18,1994 
C 

C Add modified Kachanov's model to interface constitutive module 
C by David Lo on June 9, 1994 

C 

*********************************************************************** 
REAL *8 FGL ( 2400) , DS( 1500,4 ) ,DE( 1500,3) , 

1 0(2400) ,DST( 1500,4) ,DET( 1500,3) . KG ( 2400 , 600 ) , 

2 FG(2400) , FORCE (2400), DN( 500) ,DT( 500) 

COMMON/E LAS 1 /S ( 1500,4) ,E( 1500.3), E0( 1 500, 3 ) , DSTRAN( 3 ) , 

1 DSTRES ( 4 ) 

COMMON/PL AS 1/ ALPHA ( 4 , 1500) , EPBAR( 1 500) , SIGBAR ( 1 500 ) , 

1 I PLAS ( 1500) , EPSP ( 1500,4) ,DEPSPT( 1500,4) , 

2 DEPSP( 1500,4) 

INTEGER NODE( 1500,3) ,NDOF( 1500) 

COMMON/CHI ST/RTOL , NN , NEL ,NF , NDBC , I DUMP, I PR I , ISREF, 

1 IEOUIT, ITEMAX, ITEMP, IINT 

COMMON/ AREA2/ NODE , NDOF 
COMMON/ AREA4/0 
COMMON/ AREA7/NSTE , INCR , ITER 
COMMON/ ARE A 10/DST , DET 

COMMON/LOAD/TIMV ( 1 , 1000) , RV( 1 , 1000) , INODE ( 100) , ICURVE( 100) , 

1 DINC ( lOOO) , DPMINC( 1000) ,DMULT( 1 . 1000) 

COMMON/BAND ED /MAXBW 
COMMON/HOMOG/SI G 1 AV , DEBAR 1 1 

CX COMMON/INTFAC/NINT 1 , NINT2 , SI GMAX , DELTA , ALPH , DBF AC , DN. DT , ETA 

COMMON/I NTFAC/NIF EM, NIFGP, I TGPL( 10,2) , I TCON( 500 , 2 ) , 

1 SI GMAX ( 10) ,DELTAN( 10) ,DELTAT( 10) , ALPH( 10), 

2 ETA( 10) , DBF AC ( 10) ,DN,DT , INTDF(SOO) , INTSP(500) , 

3 RMU( 10) , DI SPN( 500) , DI SPT ( 500) . TNRATIO( 500) . 

4 XRHO(500) , SIGNN(SOO) , TAUNT (500) f FN(500) , FT( 500) 
COMMON/MODPARA/RMP 1(10), RMP2( 10) , RMP3( 10) , RMP4( 10) . RMP5( 10) . 

1 RMP6 ( 10) ,RMP7( 10) ,RMP8( 10) ,RMP9( 10) ,RMP10( 10) 

COMMON/ VP LAS 1 /DTI ME , DEVPAL 

COMMON/D I SPH I S/DE LTAO( 2400) , WORKN(500) , WORKT(500) , FSEPN(500) , 

1 FSEPT ( 500) 

COMMON/ IPRISIG/ISELSIG, NUMSELSIG , MSELSI G( 100) 

C INPUT DATA AND PRINT 
DT IME = 1 .0 

CALL INPUT (FGL.NSTE) 

CALL BANWD(2, NEL, NODE, 2, MAXBW, 1) 

C INITIALIZE DISPLACEMENTS 
NTOT = 2*NN 
DO lOO 1=1, NTOT 
100 Q(I)=0. 

C INITIALIZE STRESS, STRAIN, AND INTERFACE TRACTIONS 
DO 44 1=1 , NEL 
S ( I ,4)=0. 

EPSP(I , 4 ) =0 . 

DO 44 J=1 , 3 
S(I . J)=0. 

E ( I , d)=0. 

EO ( I , J) =0 . O 
EPSP(I, J)=0. 

44 CONTINUE 

DO 5500 1=1, 500 
XRHO(I) = 0.0 
WORKN(I ) = 0.0 
WORKT(I) =0.0 
FSEPN(I) = 0.0 
FSEPT ( I ) = 0.0 
FN(I) = 0.0 
FT ( I ) = 0.0 
5500 CONTINUE 

C SET GLOBAL FORCE MATRIX EQUAL TO A TEMPORARY VALUE USED TO 



C EVALUATE THE INCREMENTAL LOADS 

DO 50 1=1 , NTOT 
50 FORCE ( I ) = FGL ( I ) 

I F ( IDUMP . NE . 1) GO TO 85 
WRI TE ( 6 , 4400 ) 

4400 FORMAT ( / , 10X , 'STEP NO . ' , 5X , ' TI ME / , 5X , 

1 ' SIG1 1 AV' , 5X , ' EPS 1 1 AV # , // ) 

85 CONTINUE 

C THIS LOOP INCREMENTS THE LOAD 
TIME =0 . 

EBAR1 1=0. 

DO 9999 INCR= 1 , NSTE 
EBAR 1 1 =EBAR 1 1+DEBAR 1 1 
TIME=TIME+DTIME 

C DETERMINE GLOBAL LINEAR STIFFNESS MATRIX 
DO 39 1=1 , NEL 
DST (1,4) =0 . 

DS ( I , 4 ) =0 . 

DEPSPT ( I . 4 ) =0 . 

DEPSP ( I , 4 ) =0 . 

DO 39 K=1 ,3 
DST ( I , K ) =0 . 

DS ( I , K ) =0 . 

DEPSPT ( I , K ) =0 . 

DEPSP(I,K)=0. 

39 DET ( I , K ) =0 . 

CALL KGLOB(KG , NODE , NTOT , NDOF ) 

ITER= 1 

C PERFORM NEWTON- R A PHSON ITERATION ON EACH LOAD INCREMENT IF 
C SOLUTION IS NONLINEAR 
C INCREMENT THE LOADS HERE 

IF(NF.EQ.O) GO TO 240 
DO 239 1=1 ,NF 
K= ICURVE ( I ) 

L= INCR 

NN 1=2*1 NODE ( I ) - 1 
NN2=NN 1+1 

FGL(NN1 )=F0RCE(NN1 ) *RV( K , L ) 

FGL ( NN2 ) = FORCE ( NN2 ) *RV( K , L) 

239 CONTINUE 

240 CONTINUE 


CX 

IF ( NDBC 

.EO. 0 ) GO 


DO 242 

1=1. NDBC 

CX 



CX 

K 

= ICURVE ( I ) 

CX 

K = 

1 


L = 

INCR 


DPMINC(I) = DINC(I) * DMULT(K.L) 

CX WRITE(G t 1234) L , I # DPMINC ( I ) 

CX 1234 FORMAT ( / , ' INCR = ' , 15 , 5X , ' NUMDBC = ' f 15 , 5X , 7 DPMINC ( I ) 

CX + F 1 4 . 5 , / ) 

242 CONTINUE 

243 CONTINUE 
CX 

9000 CONTINUE 

DO 9010 d=1 , NTOT 
FG( d ) =0 . O 
9010 CONTINUE 

IF (IDUMP.LT. 2) GO TO 3004 
CX 

WRITE ( 6 , 3010) INCR 

3010 FORMAT ( // , 10X , 'LOAD INCREMENT NUMBER ',16,//) 

CX 

WR ITE ( 6 , 3002 ) ITER 

3002 F0RMAT(25X, 'ITERATION NUMBER ' . 16 , // ) 

3004 CONTINUE 

C DETERMINE GLOBAL FORCE MATRIX 
CALL FGLOB(FGL,FG,NTOT,S) 

C DETERMINE GLOBAL STIFFNESS MATRIX IF UPDATING 
IFLAG= 1 

I F ( ITER . EO . 1 ) GO TO 99 
ISQUIG=( ITER-1 )/ISREF*ISREF 
IF(ISOUIG.NE . ITER-1 ) GO TO 98 
CALL KGLOB(KG, NODE . NTOT , NDOF ) 

98 CONTINUE 

IF(ITER.LT. ITE MAX) GO TO 99 
WRITE(6, 3003 ) 

3003 FORMAT ( ' ' ,3X, ' SOLUTION HAS NOT CONVERGED',/) 



STOP 

C SOLVE FOR DISPLACEMENT INCREMENTS USING GAUSS ELIMINATION 
99 CONTINUE 

CALL BANSOL ( KG , FG f NTOT , MAXBW , 2400 , 600 , 3 ) 

DO 87 1=1, NTOT 

87 DELTAO( I ) =FG( I ) 

C CHECK DISPLACEMENT INCREMENTS FOR CONVERGENCE 
V0LD=0 . 

VNEW=0 . 

DO 88 1=1 , NTOT 
VOLD=VOLD+DELTAQ( I )**2 
0(I)=0(I )+DELT AQ( I ) 

88 VNEW=VNEW+Q( I )**2 
VOLD=(VOLD)**0.5 
VNEW= ( VNEW ) * *0 . 5 

C CALCULATE STRESSES AND STRAINS 

CALL STRESS(NODE , DS , DE , DE LTAQ ) 

FRAC=VOLD/VNEW 
I F ( FRAC . LT . O . ) FRAC= - FRAC 
IF(FRAC.LT.RTOL) GO TO 887 
ITER=ITER+ 1 

I F ( IDUMP.LT. 2) GO TO 777 
WRI T E ( 6 , 600 1 ) 

6001 FORMAT*/, 10X, 'THE ESTIMATED DISPLACEMENTS ARE'./.SX. 

1 ' NODE NO . ' , 1 3X , ' A 1 ' , 1 3X . ' A2 ' . / ) 

DO 739 1=1 ,NN 
1 2M 1 =2* I - 1 
12=2* I 

739 WRITE(6, 1004) I , 0 ( I 2M 1 ) , Q( 1 2 ) 

I SI GP= 1 

CX IF*ISIGP.NE. 1 ) GO TO 777 

CX WR ITE ( 6 , 740 ) 

CX 740 FORMAT*' ' t 3X f 'THE ESTIMATED STRESSES ARE',//. 

CX 1 2X , ' ELEMENT NO . ' , 6X , ' SIG-XX ' , 6X , ' S IG- YY ' , 

CX 26X , ' SIG-XY ' , 6X, 'SIG-ZZ' ,//) 

CX DO 741 1=1 ,NEL 

CX WRITE ( 6 , 742 ) I ,S(I , 1 ) ,S(I ,2) , S(I ,3) ,S(I ,4) 

CX 742 FORMAT ( ' ' , 8X , I 3 , 4 ( 1 X , E 1 4 . 7 ) , / ) 

CX 741 CONTINUE 
111 CONTINUE 
GO TO 9000 

887 CONTINUE 
CY 

CY DO 772 1=1 , NI FEM 

CY WRITE* 6,771 ) INCR,I, XRHO*I) 

CY 771 FORMAT ( 5X f ' INCR= ' , 15 , 5X , ' INTF . ELEM . NUM . : ' , 15 , 5X , ' XRHO= '.E14.7) 

CY 772 CONTINUE 

CY 

CY 

CX 

C STORE DATA FOR FORCE-DISPLACEMENT PLOT 
C STRESSES FROM SELECTED ELEMENTS ARE RECORDED 
C FOR LATER CONVERSION TO TRACTION FORCES 
CX 

IF * ISELSIG .EQ. 0 ) GO TO 888 
CX 

IF ( I NCR .EQ. 1 ) THEN 

WR I TE ( 8 , 8000 ) 

8000 FORMAT*/, 5X, ' LOAD STEP x , 2X , ' ELEM ' , 7X , 'SXX' , lOX. 'SYY' , 10X, 'SXY' , 

1 lOX.'SZZ ',/) 

END IF 

SSUM1 =0.0 
SSUM2 =0.0 
SSUM3 =0.0 
SSUM4 =0.0 

DO 8005 IU = 1, NUMSELSIG 
IENUM = MSELSIG(IJ) 

SSUM1 = SSUM1 + S( IENUM, 1) 

SSUM2 = SSUM2 + S( IENUM, 2) 

SSUM3 = SSUM3 + S( IENUM. 3) 

SSUM4 = SSUM4 + S( IENUM, 4) 

CY WRITE(8 , 8001 ) INCR, IENUM, S(IENUM,1), S(IENUM,2). S(IENUM,3), 

CY 1 S ( I ENUM , 4 ) 

CY 8001 FORMAT (5X,I5,5X, I5,5X,4(2X, E12.5) ) 

8005 CONTINUE 

WR I TE ( 8 , 80 11) INCR, SSUM1, SSUM2 , SSUM3 , SSUM4 
801 1 FORMAT* 1 OX ,15, 1 OX , 4 ( 2X , E 1 2 . 5 ) ) 

CX 

888 CONTINUE 
CX 



cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

cx 

C Routine to store damaged interface data 

C 

c open and initialize data file "Intf.out" 

c 

IF ( I NCR .EQ. 1 ) THEN 

OPEN (7 , FILE* 'kintf .out ' , STATUS* ' UNKNOWN ' ) 

WRITE ( 7 , 537 ) INCR 

537 FORMAT (/, 5X INCREMENT NUMBER ',15,/) 

DO 540 I = 1. NIFGP 

DO 540 J = ITGPL(I.I), ITGPL(I.2) 

IA = O 
IB = 0 
LN = O 
SPN = 0.0 
SPT = 0.0 
TNRAT =0.0 

WRITE ( 7 , 535 ) I , J, LN, IA, IB, SPN, SPT, TNRAT 

540 CONTINUE 

REWIND 7 
ELSE 

REWIND 7 
ENDIF 
C 

C check for failure and assign damage flags and load step 

C 

C INTDF(I) = 1, tensile failure 

C INTDF(I) = 2, shear failure 

C 

WRITE ( 7 , 537 ) INCR 
DO 530 J = 1 , NIFGP 
CX 

C ASSIGN VARIABLES FOR KACHANOV ' S MODEL 

C 

EO = SIGMAX(J) 

RNU = DELTAN(J) 

GO = DELTAT(J) 

ESPCRIT = ALPH(J) 

RLAMBDA = ETA(J) 

RL = DBFAC(J) 

RBETA = RMU(J) 

CHANGE EO AND RNU TO PLANE STRAIN CONDITIONS 
EO = EO / ( 1.0 - ( RNU**2 ) ) 

RNU = RNU / ( 1.0 - RNU ) 

LN = O 

DO 530 I = ITGPL(J.I), ITGPL(J,2) 

LN = LN + 1 
DISPN = 0.0 
DISPT = 0.0 
TNRATIO = 0.0 

IF ( DN( I )/DELTAN( J) . LE . 1 ) GO TO 531 

IF ( INTDF(I) .EO. 0 ) THEN 

INTDF(I) = 1 

INTSP(I) = INCR 

DISPN = DN( I ) 

DISPT = DT ( I ) 

TNRATIO = DT ( I ) / DN(I) 

ENDIF 
CONTINUE 

IF ( ALPH(U) .LT. 0.001 ) GO TO 532 

IF ( DABS( DT (I ))/DELTAT(J) . LE . 1 ) GO TO 532 

IF ( INTDF(I) .EO. O ) THEN 

INTDF(I) = 2 

INTSP(I) = INCR 

DISPN = DN( I ) 

DISPT = DT ( I ) 

TNRATIO = DT ( I ) / DN( I ) 

ENDIF 
CONTINUE 

RLSO = ( ( DN( I )/RL ) / 2.0 )**2 + ( (DT(l)/RL) /2.0 )**2 
RLAM = SORT ( RLSO ) 

UM1 = ( DN( I )/RL ) / 2.0 + RLAM 
UM2 = ( DN( I )/RL ) / 2.0 - RLAM 
UMAX = DMAX 1 ( UM 1 , UM2 ) 

IF ( UMAX .GT. ESPCRIT ) THEN 
IF ( INTDF ( I ) .NE. 3 ) THEN 
INTDF(I) = 3 
INTSP(I) = INCR 


C 


CX 


CX 

CX 

CX 

cx 

cx 

cx 

cx 

cx 

cx 

cx 

cx 

CX 531 

CX 

CX 

cx 

cx 

cx 

cx 

cx 

cx 

cx 

CX 532 



c 

c 

c 


DISPN(I) = DN( I ) 

DISPT(I) = DT ( I ) 

TNRATIO(I) = DT ( I ) / DN(I) 
TNRATIO(I) = ABS ( TNRATIO(I) ) 
ENDIF 
ENDIF 


STORE DATA: GROUP NUM . t ELEMENT NUM . , DAMAGE FLAG, FAILURE STEP 


WRITE ( 7 , 535 ) J, I, LN, INTDF(I), INTSP(I), 

1 DISPN(I), DISPT(I), TNRATIO(I) 

535 FORMAT ( 5 ( 2X , I5).3(2X.E14.7)) 

C 

530 CONTINUE 
CX 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

CX 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

CX 

C Routine to stone work of separation data 

C 


c open and initialize data file "kwork.out" 

c 

IF ( I NCR . EO. 1 ) THEN 

OPEN (9, FI LE= ' kwork .out' , STATUS = ' UNKNOWN ' ) 

WR ITE ( 9 , 9537 ) INCR 

9537 FORMAT ( / , 5X , 'INCREMENT NUMBER ',15,/) 

DO 9540 1=1, NIFGP 

DO 9540 U = I T GPL (1,1), ITGPL(I,2) 

IA = O 
IB = 0 
WOSN =0.0 
WOST = 0.0 
WOSTOT =0.0 

WRITE ( 9 , 9535 ) I, J, WOSN. WOST, WOSTOT 

9540 CONTINUE 

REWIND 9 
ELSE 

REWIND 9 
ENDIF 
C 

WR ITE ( 9 , 9537 ) INCR 
DO 9530 J = 1. NIFGP 
CX 

DO 9530 I = ITGPL ( J , 1 ) , ITGPL(U,2) 

C 

C STORE DATA: GROUP NUM., ELEMENT NUM., WORK OF SEPARATION 

C 

WOSTOT = WORKN(I) + WORKT(I) 

WRITE( 9 , 9535 ) J, I, WORKN(I), WORKT(I), 

1 WOSTOT 

9535 FORMAT (2(2X, 15) ,3(2X,E14.7) ) 

C 

9530 CONTINUE 
CX 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

CX 

CX I F ( IDUMP . EO . 1 ) GO TO 84 

IF(INCR/IPRI*IPRI .NE. INCR ) GO TO 9999 
WRITE (6, 3001 ) INCR, ITER 

3001 FORMAT( // , 5X , 'EQUILIBRIUM FOR LOAD STEP NUMBER ',16, 

1' OBTAINED AFTER ',16,' ITERATIONS',//) 

CX 

CX temporarily disabled 

CX 

CX WRITE(6, 1032) SIG 1 AV , EBAR 1 1 

CX 1032 FORMAT ( // , 10X , ' S IG 1 AV= ' .E14.7, IX, # EBAR1 1 = '.E14.7,/) 

WRITE ( 6 , 1003) 

1003 FORMAT(/, lOX, 'THE DISPLACEMENTS ARE ',/, 5X . ' NODE N0.',13X, 

1 'A1 ' , 13X, ' A2' ,/) 

DO 93 1=1 ,NN 

93 WRITE(€, 1004) I , Q( 2*1- 1 ) ,Q( 2*1 ) 

1004 FORMAT ( 10X ,I3,2( 1X.E14.7)) 

CX WRITE(6. 1011 ) 

CX 1011 FORMAT (// , 2X , ' ELE . NO 3X SIGMA 1 1 3X EPSI L0N1 1 ', 3X , 

CX 1 ' S I GMA22 ' , 3X , ' EPSIL0N22 ' , 3X , ' SIGMA 1 2 ' ,3X, 'EPSI LON 12' , 3X . 

CX 2 ' SIGMA 3 3 ' ,//) 

CX DO 1012 1=1, NEL 

CX WRITE(6,1013)I.S(I.1),E(I, 1 ) . S ( I , 2 ) . E ( I . 2 ) . S ( I , 3 ) , E ( I . 3 ) . 

CX 1 S ( I , 4 ) 



CX 1012 CONTINUE 

CX 1013 FORMAT ( ' ' , 5X , 1 3 , 7 ( E 1 4 . 7 , 1 X ) ) 

CX IF( IDUMP . NE .0) GO TO 1041 

CX WRITE ( 6 , 40 11) 

CX 4011 F0RMAT(//,2X, 'ELEMENT NO . ' , 3X , 10X , ' EPSP 11', 

CX 1 10X, ' EPSP22 ' , 10X, 'EPSP 12' . 10X, ' EPSP33 ' , //) 

CX DO 4012 1=1 .NEL 

CX WRITE (6 , 4013 )I,EPSP(I.1).EPSP(I,2),EPSP(I,3),EPSP(I 4) 

CX 4013 FORMAT ( ' ' , 6X , 1 3 , 7X . 4 ( E 1 3 . 6 , 2X ) ) 

CX 4012 CONTINUE 
CX 1041 CONTINUE 
CX 

CX end here 

IF(IINT.EQ.O) GO TO 9999 
CX 

CX WR I TE ( 6 , 4500 ) 

CX 4500 FORMAT ( / , 10X , ' THE INTERFACE DISPLACEMENTS ARE',/, 

CX 15X, 'NORMAL COMP . ' , 5X , ' TANGENTI AL COMP.',/) 

CX NUM=NINT2-NINT 1+1 

CX DO 229 1 = 1 , NUM 

CX WRITE ( 6 , 450 1 ) DN(I),DT(I) 

CX 4501 FORMAT (5X.E15.7, 1X.E15.7) 

CX 229 CONTINUE 
CX LLL=NINT 1 

CX DO 230 1=1 , NUM 

CX I F ( DN( I)/DELTA.LE.1.) GO TO 231 

CX WR ITE ( 6 , 4502 ) I NCR , LLL 

CX 4502 F0RMAT(/,5X, 'STEP NO. ',15. IX. 

CX 1 ' NODE NO. ',13,' DEBONDED IN TENSION',/) 

CX 231 CONTINUE 

CX IF(ALPH.LT. . OOI ) GO TO 232 

CX I F (DABS(DT (I))/DELTA.LE.1) GO TO 232 

CX WRITE ( 6 , 4503 ) LLL.INCR 

CX 4503 F0RMAT(/,5X, 'STEP NO. ',15, IX, 

CX 1 ' NODE NO. ',13,' DEBONDED IN SHEAR',/) 

CX 232 CONTINUE 
CX LLL=LLL+ 1 

CX 230 CONTINUE 
CX 


5000 

5050 


5100 

229 


4502 

231 

4503 

232 
230 
CX 


DO 229 J = 1, NIFGP 
WRITE (6 , 5000) J 

FORMAT ( // , ' INTERFACE ELEMENT GROUP NO. ',15,//) 
WRITE ( 6 , 5050 ) 

FORMAT ( 10X , ' THE INTERFACE DISPLACEMENTS ARE:',/, 

1 5X , ' INTRF . ELEM. NO 5X ,' NORMAL C0MP.',5X, 

2 'TANGENTIAL COMP.',/) 

DO 229 I = I TGPL ( J , 1 ) , ITGPL(J,2) 

WRITE ( 6 , 5 100) I, DN( I ) , DT(I) 

FORMAT ( 1 5 X , 15, 1 0X ,E15.4,5X,E15.4) 

CONTINUE 

DO 230 J = 1, NIFGP 
WRITE (6 , 5000) J 

DO 230 I = I TGPL ( J , 1 ) , ITGPL(J,2) 

IF ( DN( I )/DELTAN( J ) . LE . 1 ) GO TO 231 

WR I TE ( 6 , 4502 ) INCR, I 
FORMAT(/, 5X, 'STEP NO. ',15, IX. 

1 'NODE NO. ',16,' DEBONDED IN TENSION',/) 

CONTINUE 

IF ( ALPH(J) .LT. 0.001 ) GO TO 232 

IF ( DABS(DT(I ))/DELTAT( J) . LE . 1 ) GO TO 232 

WRI TE ( 6 , 4503 ) INCR, I 

F0RMAT(/,5X, 'STEP NO. ',16, IX, 

1 'NODE NO. ',16,' DEBONDED IN SHEAR',/) 

CONTINUE 
CONTINUE 


GO TO 9999 
84 CONTINUE 

WRITE (6, 4404) I NCR , TIME , SIG1 AV , EBAR 1 1 
4404 FORMAT ( lOX , 15 , F 10 . 7 . IX . E 14 . 7 . IX. E 14 . 7 ) 
9999 CONTINUE 
CLOSE ( 5 ) 

CLOSE ( 6 ) 

CLOSE ( 7 ) 

CLOSE ( 8 ) 

CLOSE ( 9 ) 

CLOSE ( 19) 

STOP 

END 


C 



C*******************************++*+*+***++****+*+*+*++++*+**+**x***++ 

C 

c SUBROUTINE INPUT 

C 

C THIS SUBROUTINE READS IN AND PRINTS INPUT DATA 

C 

c 

SUBROUTINE INPUT ( FGL , NSTE ) 

IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 A 1 ( 1200) ,A2( 1200) , FGL ( 2400) ,T( 1 500 ) , DN( 500 ) . DT ( 500) 
INTEGER NODE ( 1 500 . 3 ) , NDOF ( 1 500) , MATSET( 1500) ,MTYPE( 1500) 
CHARACTER* 75 TITLE, INFILE. OUTFILE 
COMMON/CHI ST/RTOL.NN, NEL.NF ,NDBC, IDUMP, I PR I , ISREF , 

1 I EOUIT , ITEMAX , I TEMP , I I NT 

COMMON/ELAS 1/S( 1500.4) . E( 1500,3) ,E0( 1 500 , 3 ) , DSTRAN ( 3 ) , 

1 DSTRES ( 4 ) 

COMMON/ELAS 2/ EM1(4),EM2(4), VNU (4),G12(4),Y1(4),Y2(4),Y(4) 

1 EM( 4 ) 

COMMON/PL AS 1 / ALPHA ( 4 , 1500) , EPBAR( 1 500) , SIGBAR ( 1500) . 

1 I PLAS ( 1500) , EPSP( 1500,4) ,DEPSPT( 1500,4) , 

2 DEPSP( 1500.4) 

COMMON/PL AS 2/ SX ( 10,4),EX( 10,4),EPX( 10,4), 

1 SP( 10,4) .DEPSAL, BETA 

COMMON/VPLAS 1/DTIME , DEVPAL 

COMMON/ VPL A S2/RN , HI ,H2, AA1 , AA2 , C2 , DO, B 1 , TEMP , TMELT , OS 

COMMON/ AREA2/N0DE , NDOF 

COMMON/ AREA5/T , MATSET . MTYPE 

COMMON/ ARE A6/ A 1 , A2 

COMMON/BB/NUNI AX ( 4 ) , IDUMP2, ISUB 

COMMON/LOAD/T IMV ( 1 , 1000) ,RV( 1 , 1000) , INODE( 100) , ICURVE( 100) , 

1 DINC( lOOO) , DPMINC( 1000) , DMULT ( 1 , 1000) 

CX COMMON/ INTFAC/NINT 1 , NINT2 , SIGMAX .DELTA , ALPH , DBF AC , DN , DT , ETA 

COMMON/ 1 NT F AC /N I F EM , NI FGP , ITGPL ( 10, 2 ) , I TCON( 500 , 2 ) , 

1 SIGMAX( 10) ,DELTAN( 10) ,DELTAT( 10) , ALPH( 10) . 

2 ETA( 10) ,DBFAC( 10 ) , DN , DT , INTDF ( 500 ) , INTSP(SOO) 

3 . RMU ( 10) ,DISPN(500) ,DISPT(500) , TNRATI0(5O0) , 

4 XRHO ( 500 ), SI GNN( 500) .TAUNT (500) , FN( 500) . FT( 500) 
COMMON/MODPARA/RMP 1 ( 10) ,RMP2( 10) ,RMP3( 10) , RMP4 ( 10) , RMP5( 10) . 

1 RMP6 ( 10) ,RMP7( 10) ,RMP8( 10) ,RMP9( 10) ,RMP10( 10) 

C0MM0N/H0M0G/SIG1AV.0EBAR1 1 

COMMON/ 1 PRI SIG/ 1 SELSIG , NUMSELSIG , MSELSIG( 100) 

C 

C READ INPUT DATA 
C NN - NUMBER OF NODES 
C NEL - NUMBER OF ELEMENTS 

C NF - NUMBER OF NODES WITH EXTERNALLY APPLIED LOADS 
C NDBC - NUMBER OF DISPLACEMENT BOUNDARY CONDITIONS 
C DINC - DISPLACEMENT INCREMENTS 
C IDUMP - DUMPING CODE (1 TO DUMP) 

C ITEMP - TEMPERATURE EFFECTS FLAG (1 FOR TEMPERATURE EFFECTS) 

C RTOL - TOLERANCE USED TO MEASURE EQUILIBRIUM CONVERGENCE 
C IPRI - OUTPUT PRINTING INTERVAL 

C ISREF - NUMBER OF ITERATIONS BETWEEN REFORMATION OF STIFFNESS 
C MATRIX 

C IEQUIT - NUMBER OF STEPS BETWEEN EQUILIBRIUM ITERATIONS (NOT USED) 

C ITEMAX - MAXIMUM NUMBER OF EQUILIBRIUM ITERATIONS PERMITTED 
C BEFORE REFORMATION OF STIFFNESS MATRIX 

C 1 1 NT - EQ. ZERO UNLESS USING INTERFACE ELEMENTS 
C A1 - GLOBAL A1 COORDINATE OF ITH NODE 

C A2 - GLOBAL A2 COORDINATE OF ITH NODE 

C IEL - ELEMENT NUMBER ASSOCIATED WITH CONNECTIVITY MATRIX 
C NODE - NODAL CONNECTIVITY PARAMETER - GIVES GLOBAL NODE NO'S OF 
C ITH ELEMENT 

C MATSET - MATERIAL NUMBER FOR ITH ELEMENT 
C MTYPE - MATERIAL MODEL FOR ITH ELEMENT 
C - 1 = ISOTROPIC LINEAR ELASTIC 

C - 2 = ELASTIC PLASTIC 

C - 3 = VISCOPLASTIC 

C - 4 = VISCOELASTIC 

C T - THICKNESS OF ITH ELEMENT 

C NDOF - DEGREE OF FREEDOM OF ITH BOUNDARY CONDITION 
C INODE - NODE OF ITH FORCE VECTOR 

C FA 1 - EXTERNAL LOAD IN A1 DIRECTION APPLIED TO ITH NODE 

C FA2 - EXTERNAL LOAD IN A2 DIRECTION APPLIED TO ITH NODE 

C NUN I AX - NUMBER OF UNIAXIAL STRESS-STRAIN POINTS 
C ISUB - SUBINCREMENTATION FLAG(.NE.O) NO SUBINCS 
C IDUMP2 - DUMPING CODE(EQ.O) NO PRINTS 
C EM - YOUNG'S MODULUS 
C VNU - POISSON'S RATIO 



C Y - UNIAXIAL YIELD POINT 
C BETA - HARDING RATIO 

C DEPSAL - ALLOWABLE STRAIN SUBINCREMENT 
C SX( <J ) - VALUE OF STRESS ON SIGMA-X VS EPSILON-X CURVE 
C EX ( J ) - VALUE OF STRAIN ON SIGMA-X VS EPSILON-X CURVE 
C FGL - GLOBAL FORCE MATRIX 
C NLCUR - NUMBER OF LOAD CURVES 
C TIMV - TIME VALUE OF LOAD MULTIPLIER 
C RV - LOAD MULTIPLIER 
C ICURVE - LOAD CURVE NUMBER 

C FORCE - SET EQUAL TO INITIAL UNIT GLOBAL FORCE MATRIX 
C 

OPEN( 1 9 , F I L E = ' kda t a . da t ' , READONLY , STATUS= 'OLD' ) 

READ( 19, 107 ) INFILE 
107 FORMAT ( A ) 

OPEN( 5 ,FILE = INFILE,ST ATUS= ' OLD ' ) 

READ (19, 107 ) OUTFILE 

OPEN (6 ,FILE=OUTF I LE ,STATUS=' UNKNOWN' ) 

OPEN( 8 , FI LE = ' kf ordi st . out ' , STATUS= 'UNKNOWN' ) 

WRITE ( 6 , 4956 ) 

WRITE ( 8 , 4956 ) 

4956 FORMAT (//, 5X, 'DANCOM: MODIFIED KACHANOV MODEL' /) 

READ( 5 , 5002 ) TITLE 
5002 FORMAT (A75) 

WRI TE ( 6 , 500 1 ) TITLE 
WR I T E ( 8 , 500 1 ) TITLE 
5001 FORMAT (//,A75//) 

READ( 5 . * ) NN, NEL, NF. NDBC, IDUMP , I TEMP , NLCUR , NSTE , 

1 1 1 NT 

CX READ ( 5 , 1001 ) NN , NEL , NF , NDBC , IDUMP , ITEMP , NLCUR , NSTE 

CX 1IINT 

CX lOOl FORMAT (915) 

READ(5 , * ) RTOL , IPRI , I SREF , I EQUIT , I TEMAX , NOMAT 
CX READ( 5 , 1002 ) RTOL . IPR I , I SREF , I EQU I T , ITEMAX , NOMAT 

CX 1002 FORMAT (F10. 6,515) 

37 WRITE ( 6 , 200 1 ) NN , NEL , NF , NDBC , NSTE , NOMAT 

2001 F0RMAT(5X. 'THE INPUT DATA ARE AS FOLLOWS './/. 10X , 

1 'NUMBER OF NODES = 16 ./, 10X ,' NUMBER OF ELEMENTS = ' 

2 16,/, lOX. 'NUMBER OF EXTERNAL FORCE COMPONENTS = ', 

3 13,/, lOX, 'NUMBER OF DISP. BOUNDARY CONDITIONS = ',13,/ 

4 10X , 'NUMBER OF SOLUTION STEPS = ',16,/. 

5 lOX. 'NUMBER OF MATERIAL MODELS USED = ',13,//) 

WRITE( 6 , 2002 ) RTOL, IPRI , IDUMP , ISREF , I EQUIT . ITEMAX 

2002 FORMAT (5X, 'THE SOLUTION IS NONLINEAR ',//, 10X , 

1 'TOLERANCE FOR EQUILIBRIUM CONVERGENCE IS = '.F10.6 / lOX 

2 'OUTPUT PRINTING INTERVAL = ',I6,/,10X, 

3 'OUTPUT FORMAT OPTION = '.I3./.10X, 

4 'NO. OF ITER. BEFORE REFORMING STIFFNESS MATRIX = ' 

5 13,/, 1 OX , 

6 'NUMBER OF STEPS BETWEEN EQUILIBRIUM ITERATIONS = 

7 I3./.10X. 

8 'MAX NO. ITERATIONS BEFORE REFORMATION OF K MATRIX = ' 

9 13,//) 

READ( 5 , * ) ( A 1 ( I ) , A2 ( I ) , I = 1 , NN ) 

CX READ( 5 , 1003 ) ( A 1 ( I ) , A2 ( I ) , I = 1 , NN ) 

CX 1003 FORMAT ( 2F 10 . 7 ) 

WRITE (6. 2003) 

2003 FORMAT(//, 10X, 'NODAL COORDINATES ARE',//,10X, 

1 'NODE NO. ' 18X, ' A 1 ' , 18X, 'A2' ,//) 

DO 17 11=1, NN 

17 WR I TE ( 6 , 2004 ) 1 1 , A 1 ( 1 1 ) , A2 ( 1 1 ) 

2004 FORMAT ( 10X. 13, 15X, F 10. 4, 10X , F 10.4) 

DO lOO 1=1 .NEL 

100 READ(5 , * ) I EL , ( NODE (IEL,<J),J=1,3), MATSET ( I EL ) , 

1 MTYPE(IEL) 

CX lOO RE AD (5. 1004) I EL , ( NODE ( I EL , U ) , U= 1 , 3 ) , MATSET ( I EL ) , 

CX 1MTYPE ( IEL ) 

CX 1004 FORMAT (615) 

WR I T E ( 6 , 2005 ) 

2005 FORMAT(//, 10X. 'GLOBAL NUMBERING OF ELEMENTS IS'. 

1 //.4X. 'ELEMENT NO . ' , 4X , ' NODE 1',4X,'N0DE 2', 

2 4X . ' NODE 3' ,4X, 'MATSET' ,5X, 'MTYPE' ,//) 

DO 101 1=1. NEL 

101 WR I T E ( 6 , 2006 ) I . (NODE ( I , U ) . U= 1 , 3 ) , MATSET ( I ) , MTYPE ( I ) 

2006 FORMAT ( 5X ,15, 2X ,5(5X,I5)) 

DO 20 1=1, NEL 

20 T( I ) = 1 .0 
22 CONTINUE 

READ ( 5 , * ) (NDOF(I) . 1 = 1 , NDBC) 

CX READ(5 , 1005 ) ( NDOF ( I ) . I = 1 , NDBC ) 



CX 1005 FORMAT ( 1215) 

WRITE(6, 2023) 

2023 FORMAT ( // , 10X , 

1 'THE DISP. BOUNDARY CONDITIONS ARE APPLIED AT',/, 

2 10X, 'DEGREES OF FREEDOM',//) 

WR I T E ( 6 , 202 4 ) ( NDOF ( I ) , I = 1 , NDBC ) 

2024 FORMAT( 10X, 1015) 

READ( 5 , * ) DEBAR 1 1 

CX RE AD( 5 , 7004 ) DEBAR 1 1 

CX 7004 FORMAT ( F 10 . 6 ) 

WR I TE ( 6 , 7003 ) DEBAR 1 1 

7003 FORMAT (/, 10X, 'DEBAR11 = '.F10.6,/) 

READ( 5 , *) (DINC( J) ,0=1 , NDBC ) 

CX READ ( 5 , 7005 ) ( DINC ( J ) , 0= 1 , NDBC ) 

CX 7005 FORMAT ( 6F 10 . 4 ) 

WRITE ( 6 , 7006 ) 

7006 FORMAT( 10X, 'THE DISPLACEMENT INCREMENTS ARE',//) 

WR I TE ( 6 , 7007 ) (DINC(J) , J = 1 , NDBC ) 

7007 FORMAT (5(2X,F10.8) ) 

NTOT = 2*NN 

C 

C ZERO GLOBAL FORCE MATRIX 
C 



00 102 1=1, NTOT 


102 

FGL( I )=0. 


CX 



CX 

IF(NF.EO.O) GO 

TO 504 

CX 

IF ( NF .EQ. 0 ) 

GO TO 6666 

CX 

WRITE ( 6 , 2007 ) 



2007 F0RMAT(//,5X, 'FORCES ARE APPLIED AS FOLLOWS ',//, 5X , 

1 'NODE NO . ' , 2X , ' LOAD CURVE N0.',5X,'A1 FORCE', 5X, 

2 ' A2 FORCE' ,//) 

DO 103 1=1, NF 

READ ( 5 , * ) INODE ( I ) , I CURVE ( I ) , FA 1 , FA2 
CX READ ( 5 , 1006) INODE(I) , I CURVE (I),FA1,FA2 

CX 1006 FORMAT (215, 2F 10.0) 

WRITE (6, 2008) I NODE (I ), ICURVE ( I ) , FA 1 , FA2 

2008 FORMAT (5X, 13, 10X, 13 , 2( 5X , F 10 . 0) ) 

C 

C ASSEMBLE GLOBAL LINEAR FORCE MATRIX 
C 

NN1 =2* INODE ( I ) — 1 
NN2=NN 1+1 

F G L ( NN 1 ) = FGL(NN1 ) + FA1 
103 FGL ( NN2 ) =FGL( NN2 ) + FA2 

IF(IDUMP.LT. 3) GO TO 6666 
WRITE ( 6 , 20 14) 

2014 FORMAT (//,20X, 'GLOBAL LINEAR FORCE MATRIX',//) 

WRITE(6 , 2015 ) < FGL ( I ) , I = 1 , NTOT ) 

2015 FORMAT ( 30X , E 1 5 . 7 ) 

6666 CONTINUE 

C 

C LOAD CURVE MULTIPLIERS 

C 

DO 109 K= 1 , NLCUR 
DO 110 L= 1 , NSTE 
CX 

READ ( 5 , * ) TIMV ( K , L ) , RV ( K , L ) , DMULT (K , L ) 

CX 

C 

CX READ (5,111) TIMV (K,L) ,RV(K,L) 

CX 111 FORMAT ( 2F 1 0 - 2 ) 

1 10 CONTINUE 
109 CONTINUE 

WRITE ( 6 , 112) 

112 FORMAT ( ' ' ,//, lOX, 'LOAD CURVE AND DISPLACEMENT MULTIPLIERS'.///) 

DO 113 K= 1 .NLCUR 
WRITE (6, 1 1 4 ) K 
CX 

114 FORMATC' ' , 5X , ' LOAD CURVE NO.', 

1 2X. 13,//. 10X, 'TIMV' . 13X, 'RV' , 13X, 'DMULT' ,/) 

CX 

DO 115 L= 1 , NSTE 
CX 

WRITE (6, 1 16) TIMV(K, L) ,RV(K, L) .DMULT (K, L) 

116 FORMATC' ' ,3X,F10.4,8X,F10.4,8X,F10.4) 

CX 


115 CONTINUE 



I 13 CONTINUE 
504 CONTINUE 

C 

C READ IN MATERIAL PROPERTIES 
C 

READ( 5 , * ) M0DNUM1 , M0DNUM2 , M0DNUM3 , M0DNUM4 
CX READ ( 5 . 2507 ) MODNUM 1 , M0DNUM2 , M0DNUM3 , M0DNUM4 

CX 2507 FORMAT (415) 

I F ( MODNUM 1 . EQ . 0 ) GO TO 451 
C 

C READ IN MATERIAL PROPERTIES FOR ELASTIC ELEMENTS 
C 

WR I TE ( 6 , 6707 ) MODNUM 1 

6707 FORMAT(/ , 5X , ' THERE ARE ; , 13, ' ELASTIC MATERIAL SETS', 

1 /.'SET NO. 7 ,6X, 'El' , 1 3X , ' E2 ' , 13X, ' NU 1 2 ' , 

2 13X, 'G12' , 10X, 'Y1 ' , 14X. ' Y2' ./) 

DO 559 1=1 , MODNUM 1 

READ( 5 , * ) MATNO , EMI ( MATNO ) , EM2 ( MATNO ) , VNU(MATNO) f 
1 G1 2 (MATNO) , Y1 (MATNO) , Y2 (MATNO) 

CX READ ( 5 , 6700 ) MATNO , EM( MATNO ) , VNU( MATNO ) , Y (MATNO ) 

CX 6700 FORMAT (4X, I5,3E15.7) 

WRITE (6, 6702) MATNO , EM 1 ( MATNO ) , EM2 ( MATNO ) , VNU ( MATNO ) , 

1 G1 2( MATNO ), Y 1 (MATNO ), Y2(MATN0 ) 

6702 FORMAT ( 2X f I3,3X,6(1X,E14.7)) 

559 CONTINUE 
451 CONTINUE 

I F ( M0DNUM2 . EQ . 0 ) GO TO 452 
C 

C READ IN MATERIAL PROPERTIES FOR ELASTIC-PLASTIC ELEMENTS 
C 

WR I TE ( 6 , 6701 ) M00NUM2 
6701 F0RMAT(/,5X, 'THERE ARE ',13, 

1 ' ELASTIC-PLASTIC MATERIAL SETS',/) 

READ ( 5 , * ) I SUB, IDUMP2 , BETA , DEPSAL 
CX READ ( 5 , 2050 ) I SUB, I DUMP2 , BETA , DEPSAL 

CX 2050 FORMAT (215, F10.0.F10.2) 

WRITE (6, 2060) I SUB, IDUMP2 , BETA , DEPSAL 
2060 FORMAT( lOX, 'SUBINCREMENTATION FLAG = ',15,/, 

1 10X, 'DUMPING CODE = ' , I 5 , / , 10X , ' BETA = 

2 F10. 4, /, 10X, 'ALLOWABLE STRAIN SUBINCREMENT = 

3 F 1 0 . 5 , // ) 

DO 363 1=1, M0DNUM2 

READ(5, *) MATNO, NUNI AX ( MATNO ) , EM( MATNO ) , 

1 VNU( MATNO) ,Y( MATNO) 

CX RE AD (5 , 2390) MATNO , NUNI AX ( MATNO ) , EM( MATNO ) , 

CX 1 VNU (MATNO ) , Y( MATNO ) 

CX 2390 FORMAT (2I5,F10.0,F10.4,F10.0) 

RE AD ( 5 , 2070 ) ( SX ( J , MATNO ) , EX ( J , MATNO ) , J= 1 , NUNI AX ( MATNO ) ) 
2070 FORMAT ( 6F 10.0) 

WRITE ( 6 , 2040 ) MATNO 

2040 FORMATC 10X, 'MATERIAL SET NUMBER = '.15,/) 

WR I TE ( 6 , 2043 ) EM ( MATNO ) , VNU ( MATNO ) , Y ( MATNO ) 

2043 FORMAT( 10X. 'MODULUS OF ELASTICITY = '.E14.7,/, 

1 10X, 'POISSONS RATIO = ',E14,7./, 

2 lOX.'YEILD POINT = '.E14.7,/) 

WRITE(6, 2080) 

2080 FORMAT( 10X, 'THE INPUT UNIAXIAL STRESS-STRAIN DATA ARE',/, 
1 14X, 'STRESS' , 14X, 'STRAIN' , // ) 

DO 10 J= 1 , NUNI AX ( MATNO ) 

WRITE (6, 2090) SX(J, MATNO) , EX (J, MATNO) 

2090 FORMAT( 1OX.F10.2. 10X.F10.5) 

10 CONTINUE 

WRITE(6, 3000) 

3000 FORMAT(//, 10X , ' THE UNIAXIAL K VS EPBAR DATA ARE',//, 

1 19X, 'K' , 15X, 'EPBAR' , // ) 

DO 11 J=1 , NUNI AX ( MATNO ) 

EPX( J, MATNO )= EX (J, MATNO )-SX(U, MATNO) /EM( MATNO) 

SP(U, MATNO )=Y( MATNO ) + ( SX ( J , MATNO ) - Y ( MATNO ) ) *BET A 
WRITE (6. 2090) SP( J, MATNO ) , EPX( J. MATNO) 

II CONTINUE 
363 CONTINUE 

DO 1007 J= 1 , NE L 
IF(MTYPE(J) .NE .2) GO TO 1040 
EPBAR ( J ) =0 . O 
I PLAS ( J ) =0 

SIGBARC J)=Y(MATSET( J) ) 

DO 1008 1=1,4 
ALPHA(I . J)=0.0 
1008 CONTINUE 
1040 CONTINUE 



1007 CONTINUE 

452 I F ( M0DNUM3 . EQ - O ) GO TO 453 
WRITE ( 6 , 2200) M0DNUM3 

2200 F0RMAT(/.5X, 'THERE IS ',13,' VISCOPLASTICITY MODEL'./) 
DO 222 1=1, M0DNUM3 

WRITE ( 6 , 220 1 ) I 

2201 FORMAT( 10X, 'VISCOPLASTICITY MODEL NO. ',12) 

READ ( 5 , * ) DTI ME , DE VPAL 

CX READ( 5 , 2 100) DTIME.DEVPAL 

CX 2100 FORMAT ( 2E 1 5 . 7 ) 

WRITE (6 , 2101 ) DTIME.DEVPAL 
2101 FORMAT( 10X, 'TIME STEP = '.E14.7,/, 

1 10X, 'ALLOWABLE STRAIN SUBINCREMENT = '.E14.7,/) 

READ (5, * ) MATNO, EM(MATNO) , VNU ( MATNO ) , Y ( MATNO ) 

CX RE AD (5, 2398) MATNO, EM (MATNO) , VNU (MATNO) , Y ( MATNO ) 

CX 2398 FORMAT (I5,F10.0,F10.4,F10.0) 

WRITE(6, 2040) MATNO 

WRITE (6, 2043) EM( MATNO ), VNU( MATNO ) ,Y (MATNO) 

READ ( 5 , 2202 ) RN . H 1 , H2 . A A 1 , A A2 , C2 , DO , B 1 , TEMP , TMELT , OS 

2202 FORMAT ( 4E 15.7) 

WRITE (6, 2203) RN , H 1 , H2 , A A 1 , AA2 , C2 , DO , B 1 , TEMP , TMELT , QS 

2203 FORMAT ( 10X , ' RN = ' , E 1 5 . 7 . 1 X , ' H 1 = '.E15.7,/, 

1 10X , ' H2 = ' ,E15.7, IX, 'AA1 = ',E15.7,/, 

2 lOX , ' A A2 = ' .E15.7, IX. 'C2 = '.E15.7,/, 

3 10X , ' DO = ' , E 15 . 7 , IX, 'B1 = '.E15.7,/. 

4 10X , ' TEMP = ' ,E15.7, IX, 'TMELT = ',E15.7,/, 

5 10X, 'QSTAR = ' , E 15 .7,/) 

222 CONTINUE 

DO 5007 J=1 , NE L 
I F ( MTYPE ( J ) . NE . 3 ) GO TO 5004 
EPBAR( J ) =0 . 0 
I PLAS ( J ) =0 
S I GBAR ( d ) =D0 
DO 5008 1=1,4 
ALPHA(I, J)=0.0 
5008 CONTINUE 
5004 CONTINUE 
5007 CONTINUE 

453 I F ( M0DNUM4 . EQ . 0 ) GO TO 455 
GO TO 450 

450 WRITE(6, 5095) 

5095 FORMAT( 10X, 'MATERIAL MODEL NOT IN CODE',//) 

STOP 

455 CONTINUE 

IF(IINT.EQ.O) GO TO 9999 
CX READ ( 5 , * ) NINT1 ,NINT2, ETA 

CXCX READ ( 5 , 4001 ) NI NT 1 , NINT2 , ETA 

CXCX 4001 FORMAT (2I5.E15.7) 

CX READ ( 5 , * ) SIGMAX, DELTA, ALPH.DBFAC 

CXCX READ ( 5 , 4002 ) S I GMAX , DELTA , ALPH , DBFAC 

CXCX 4002 FORMAT ( 4E 1 5 . 7 ) 

CX WRITE ( 6 , 4003 ) 

CX 4003 F0RMAT(/,5X, ' INTERFACE ELEMENTS IN EFFECT',/) 

CX WR ITE ( 6 , 4004 ) NINT 1 , NINT2 , SIGMAX , DELTA , ALPH 

CX 4004 FORMAT( 10X, ' INTERFACE ELEMENTS START AT NODE NO.'. 

CX 1 I5./.10X, 

CX 2 'AND END AT NODE NUMBER ' , 15 , / , 

CX 3 10X , ' MAX NORMAL INTERFACE STRESS = '.E15.7,/, 

CX 4 10X, 'LENGTH PARAMETER = '.E15.7,/, 

CX 5 lOX, 'RATIO SHEAR/NORMAL INTERF . STIFFNESS = ' , 

CX 6 E 1 5 . 7 , / ) 

CX WR I TE ( 6 , 4008 ) DBFAC, ETA 

CX 4008 FORMAT( 10X, 'DEBOND COMPRESSIVE FACTOR = '.E15.7,/ 

CX 1 10X, 'UNLOADING STRETCH FACTOR = ',E15.7,/) 

CX 

C 

C READ IN NO. OF INTRF ELEMS AND GROUPS 

C 

READ( 5 , * ) NIFEM, NIFGP 
C 

C READ IN FIRST AND LAST ELEMENT 

C 

DO 5000 J = 1 , NIFGP 

READ( 5 , * ) ITGPL( J , 1 ) , ITGPL(J,2) 

5000 CONTINUE 
C 

C READ IN INTRF CONNECTIVITY MATRIX 

C 

DO 5050 J = 1, NIFEM 

READ( 5 , * ) ITCON(J.I), ITC0N(J,2) 



5050 CONTINUE 
C 

C READ IN INTERFACE CONSTITUTIVE CONSTANTS 

C 

DO 5400 0=1, NIFGP 

READ ( 5 , * ) SIGMAX(U), DELTAN(U), DELTAT(U). ALPH(J), ETA(U), 

1 DBFAC(O), RMU(J), RMP1(J), RMP2(J), RMP3(0) 

C 

C COMMON BLOCK SET FOR RMPl(lO) TO RMPIO(IO) 

C USE ONLY RMP 1(0) TO RMP3(J) FOR NOW 

C 

5400 CONTINUE 
C 

C READ IN SELECTED ELEMENT NUMBERS FOR STRESS OUTPUT 

C 

READ ( 5 , * ) ISELSIG 
IF ( ISELSIG .NE. 0 ) THEN 
READ ( 5 , * ) NUMSELSIG 

READ( 5 , * ) (MSELSIG(J), 0=1, NUMSELSIG) 

WRITE(6, 5475) NUMSELSIG 

5475 FORMAT ( // , 10X , 15, ' ELEMENTS SELECTED FOR STRESS OUTPUT:',/) 

WR ITE ( 6 , 5485 ) (MSELSIG(J), 0=1, NUMSELS I G ) 

5485 FORMAT (515) 

ENDIF 

C 

C OUTPUT INTERFACE ELEMENT INFORMATION 

C 

WR I TE ( 6 , 51 00 ) 

5100 FORMAT(//, 10X, ' INTERFACE ELEMENTS IN EFFECT',/) 

IF ( NIFGP .GT. 1 ) THEN 
WRITE(6 , 5150) NIFEM, NIFGP 

5150 FORMAT( 10X, 'THERE ARE ',15,' INTERFACE ELEMENTS.',/ 

1 10X , ' THEY ARE DIVIDED INTO ',15,' GROUPS.',/) 

ELSE 

WRITE (6,51 52 ) NIFEM, NIFGP 

5152 FORMAT( 10X, 'THERE ARE ',15,' INTERFACE ELEMENTS.',/ 

1 10X , ' THEY ARE ASSIGNED TO ',15,' GROUP.',/) 

ENDIF 

WRITE(6, 5160) 

5160 FORMAT*/, 10X , 'GROUP NO . ' , 10X , ' FIRST INTRF . E LEM.', 

1 10X , 'LAST INTRF. ELEM.',/) 

WRITE ( 6,51 70 ) ( 0 , ITGPL (0, 1 ) , ITGPL(U,2) ,0=1, NIFGP) 

5170 FORMAT ( 10X.I5, 1 8X , 1 5 , 22X ,15) 

WRI TE ( 6 , 5200 ) 

5200 FORMAT(//, 10X, 'INTERFACE ELEMENT NO . ' , 5X , ' NODE I'.IOX, 

1 'NODE 2 ' ,/) 

WR ITE ( 6 , 5250 ) ( 0 , ITCON( 0 , 1 ) , ITCON( 0 , 2 ) , 0=1, NIFEM) 

5250 FORMAT ( 16X , 15 , 1 2X , 15 , 10X , I 5 ) 

DO 5275 0=1, NIFGP 

WRITE( 6 , 5300 ) 0, SIGMAX(O), DELTAN(O), DELTAT(O), ALPH(O), 

1 ETA(O). DBFAC(J), RMU(O), RMP 1(0), RMP2(U), RMP3(0) 

5275 CONTINUE 
CX 

CX5300 FORMAT (//, 10X , 'GROUP NO . ' , I 5 , / 

CX 1 lOX.'MAX NORMAL INTERFACE STRESS= '.E15.7,/, 

CX 2 10X, 'NORMAL LENGTH PARAMETER^ '.E15.7,/, 

CX 3 10X, 'TANGENTIAL LENGTH PARAMETER= '.E15.7,/, 

CX 4 10X, 'SHEAR/NORMAL INTERFACE STIFFNESS RATIO= ',E15.7,/, 

CX 5 lOX, 'UNLOADING STRETCH F ACTOR= ',E15.7,/ 

CX 6 10X, 'DEBOND COMPRESSIVE FACTOR^ ',E15.7,/ 

CX 7 10X, ' INTERFACIAL COEFFICIENT OF FRICTION= '.E15.7,/) 

CX 

C KACHANOV'S MODEL 

5300 FORMAT(//, 10X, 'GROUP NO. ',15,/ 

1 10X, 'YOUNGS MODULUS= '.E15.7./, 

2 10X , 'POISSONS RATI 0= ',E15.7,/, 

3 10X, 'SHEAR MODULUS= '.E15.7,/, 

4 10X, 'CRITICAL TENSILE STRA IN= ',E15.7,/ f 

5 10X , ' RLAMDA= '.E15.7,/, 

6 10X , ' RL= ' , E 1 5 . 7 , / , 

7 10X , ' RBETA= ',E15.7,/, 

8 10X , ' RMP 1 = ' .E15.7,/, 10X, 'RMP2= ' , E 1 5 . 7 , / , 10X , ' RMP3= '.E15.7,/) 

CX 

9999 CONTINUE 
RETURN 
END 
C 

C************************************************************** 

c 

C SUBROUTINE KGLOB 



c 

C THIS SUBROUTINE CALCULATES THE LINEAR OR NONLINEAR GLOBAL 

C STIFFNESS MATRIX 

C 

c 

SUBROUTINE KGLOB ( KGL , NODE , NTOT , NDOF ) 

IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 KGL( 2400 . 600) , KEL (6 , 6 ) ,B(3,6).BC(6,3),C(3,3).T( 1500) , 

1 DS( 1500,4) , KGS ( 2400 , 600 ),RKINT(4,4) , DN( 500 ) , DT ( 500 ) 

INTEGER NODE ( 1500,3) ,NDOF( 1500) , NIC0N(2) , MATSET ( 1500) , MTYPE ( 1500) 
COMMON/ CHI ST /R TO L , NN , NEL , NF , NDBC , IDUMP, IPRI , ISREF, 

1 IEQUIT, ITEMAX, ITEMP, IINT 

CX COMMON/ INTFAC/NI NT 1 , NINT2 , SIGMAX , DELTA , ALPH , DBF AC . DN , DT , ETA 

COMMON/ INTFAC/NI FEM.NIFGP, I TGPL( 10.2), ITC0N(50O, 2 ) , 

1 S I GMAX ( 10) ,DELTAN( 10) ,DELTAT( 10) , ALPH( 10) . 

2 ETA ( 10) , DBF AC ( 10) .DN.DT, INTDF(500) , INTSP(SOO) 

3 , RMU ( 10) , DISPN( 500) , DI SPT ( 500 ) , TNRATIO( 500 ) , 

4 XRHO ( 500) , SIGNN( 500) , TAUNT (500) , FN(500) . FT (500) 
COMMON/MODPARA/RMP 1 ( 10) , RMP2( 10) , RMP3( 10) . RMP4( 10) , RMP5( 10) , 

1 RMP6 ( 10) , RMP7 ( 10) ,RMP8( 10) ,RMP9( 10) ,RMP10( 10) 

COMMON/AREA 1/B 
C0MM0N/AREA5/T .MATSET , MTYPE 
COMMON/ AREA7/NSTE , I NCR, ITER 
COMMON/BANDED/MAXBW 
COMMON/STIF/KGS 
DO 44 1=1 , NTOT 
DO 44 J= 1 , MAXBW 
44 KGL ( I , J ) =0 . 

DO 99 1=1 , NEL 

C DETERMINE ELEMENT STIFFNESS MATRIX 
CALL SHAPE ( I , IDUMP , AREA ) 

I F ( MTYPE ( I ) . EQ . 1 ) GO TO 451 
I F ( MTYPE ( I ) . EQ . 2 ) GO TO 452 
I F ( MTYPE ( I ) . EO . 3 ) GO TO 453 
I F ( MTYPE ( I ) . EQ . 4 ) GO TO 454 

450 WRITE ( 6 , 6003 ) 

6003 FORMAT( 10X, 'MATERIAL TYPE NOT IN CURRENT LIBRARY' ,/) 

STOP 

451 CALL ELAS2D( I ,C,DS,MATSET(I ) ) 

GO TO 455 

452 CALL PLAS2D( I , C , DS , 1 , MATSET ( I ) ) 

GO TO 455 

453 CONTINUE 

CALL VPLAS2D ( I , C , DS , 1 , MATSET ( I ) ) 

GO TO 455 

454 GO TO 450 

455 CONTINUE 

DO 66 L= 1 , 6 
DO 66 J= 1 , 3 
BC ( L , J ) =0 . 

DO 66 K= 1 , 3 

66 BC ( L , J ) =BC ( L , J )+B (K, L)*C(K,J) 

DO 67 L= 1 , 6 

DO 67 J=1 ,6 
KEL ( L , J ) =0 . 

DO 67 K= 1 , 3 

67 KEL(L,U)=KEL(L,J) +BC (L,K)*B(K,J) 

DO 68 L=1 ,6 

DO 68 J=1 , 6 

68 KEL(L,J)=AREA*KEL(L, J ) *T( I ) 

I F ( IDUMP . LT . 4 ) GO TO 7777 
WRI TE (6 , 201 1 ) I 

2011 FORMAT (//,20X, 'ELEMENT STIFFNESS MATRIX FOR ELEMENT NO.', 

1 13.//) 

DO 54 L = 1 , 6 

54 WRI TE ( 6 , 20 12) ( KEL ( L , J ) . J= 1 , 6 ) 

2012 FORMAT ( 4 ( 5X , E 1 5 . 7 ) ) 

7777 CONTINUE 

C ASSEMBLE ELEMENT STIFFNESS MATRIX INTO GLOBAL LINEAR STIFFNESS 
C MATRIX 

CALL ASEMBL(KGL , KEL , 3 , NODE ,2,1) 

99 CONTINUE 

IF(IINT.EO.O) GO TO 98 
CX NINEL=NINT2-NINT 1+1 

CX 1 1 =NI NT 1 

CX 12=11 +NINEL 

CX DO 97 1=1 .NINEL 

CX CALL INTRFACE (1,11,12, RKINT ) 

CX NICON( 1 ) = I 1 



CX NICON( 2 ) = I 2 

CX CALL A S EM I NT ( KGL , RKI NT , 2 , NICON , 2 ) 

CX 11=11+1 

CX 12=12+1 

CX 97 CONTINUE 
CX 

DO 500 1=1, NIFGP 

DO 550 J = ITGPL(I.I), ITGPL(I,2) 

IF ( 0 . EO. ITGPL ( I , 1 ) ) THEN 
ITFLAG = 1 

ELSE IF ( J .EO. ITGPL( 1,2) ) THEN 
ITFLAG = 2 
CX 

CX SPECIAL TRUSS ELEMENT FOR FORCE CALCULATIONS 

ELSE IF ( I TGPL ( 1,1) .EO. ITGPL(I,2) ) THEN 
ITFLAG = 3 
CX 
CX 

ELSE 

ITFLAG = 0 
END IF 

11 = ITCON( J , 1 ) 

12 = ITCON( J , 2 ) 

CALL INTRFACE ( J , 11,12, RKINT , ITFLAG , I ) 

NICON(I) = II 
NICON( 2 ) = 12 

CALL ASEMI NT ( KGL , RKINT , 2 , NICON , 2 ) 

550 CONTINUE 
500 CONTINUE 
CX 

98 CONTINUE 

IF( IDUMP.LT. 4) GO TO 6666 
WRITE (6 , 2013 ) 

2013 F0RMAT(//,20X, 'GLOBAL LINEAR STIFFNESS MATRIX',//) 

WRITE (6, 2040) ( ( KGL ( 1 1 , UJ ) , JJ= 1 , MAXBW ) , 11 = 1 , NTOT ) 

2040 FORMAT ( 4 ( 5X , E 1 5 . 7 ) ) 

6666 CONTINUE 

DO 988 1=1 , NTOT 
DO 988 0=1 .MAXBW 
988 KGS ( I , 0 ) =KGL ( I , J ) 

C 

C APPLY DISPLACEMENT BOUNDARY CONDITIONS 

C ZERO-ONE TREATMENT TO STIFFNESS MATRIX 

C 

DO 999 1=1, NDBC 
JU=NDOF ( I ) 

KGL ( 0 J , 1 )=1 .0 
DO 50 0=2, MAXBW 

50 KGL ( 00 , 0 ) =0 . DO 
00=00-1 

M=2 

51 IF(M. GT. MAXBW. OR. OJ. LT. 1) GO TO 52 
KGL ( 00 , M ) =0 . DO 

00=00-1 
M=M+ 1 
GO TO 51 

52 CONTINUE 
999 CONTINUE 

C 

C 

RETURN 

END 

C 

c 

c SUBROUTINE SHAPE 

C 

c THIS SUBROUTINE CALCULATES THE P AND D MATRICES 

C 

c 

SUBROUTINE SHAPE ( I , IDUMP , AREA ) 

IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 B(3,6),A1( 1200) ,A2( 1200) ,T( 1500) 

INTEGER NODE ( 1500,3) , NDOF ( 1500) , MATSET ( 1500) . MTYPE ( 1500) 

COMMON/AREA 1/B 

COMMON/ ARE A 2/NODE , NDOF 

COMMON/ ARE A5/T , MATSET , MTYPE 

C0MM0N/AREA6/A 1 , A2 

COMMON/ AREA7/NSTE , INCR , ITER 



X 1 = A 1 ( NODE ( 1,1)) 

X2=A 1 ( NODE (1,2) ) 

X3 = A1 (NODE( I ,3) ) 

Z 1 =A2(NODE ( I . 1 ) ) 

Z2=A2 ( NODE (1,2)) 

Z3=A2 ( NODE (1,3)) 

AREA=(X2*Z3+X1*Z2+X3*Z1-X2*Z1-X3*Z2-X1*Z3)/2. 

B( 1 , 1 )=(Z2-Z3)/2. /AREA 
B(2.2)=(X3-X2)/2. /AREA 
B(1,3)=(Z3-Z1)/2./ AREA 
B(2,4)=(X1-X3)/2./ AREA 
B(1,5)=(Z1-Z2)/2./ AREA 
B( 2 . 6 ) = ( X2-X 1 )/2 . /AREA 
B( 1 , 2 ) =0 . 

B ( 1 , 4 ) =0 . 

B ( 1 , 6 ) =0 . 

B ( 2 , 1 )=0. 

B ( 2 , 3 ) =0 . 

B( 2, 5 )=0 . 

B(3, 1 )=B(2.2) 

B ( 3 , 2 ) =B( 1,1) 

B(3,3)=B(2,4) 

B(3,4)=B( 1,3) 

B ( 3 , 5 ) =B (2,6) 

B( 3 , 6 ) =B ( 1,5) 

IF( IDUMP . LT . 4 ) GO TO 4637 
ISHAPE=0 

I F ( I SHAPE . NE . 1 ) GO TO 4637 
DO 4635 0=1,3 

WRITE ( 6 , 4639 )(B(0,K),K=1,6) 

4639 FORMAT ( ' ' , 2X . 6 ( E 1 3 . 6 , 2X ) ) 

4635 CONTINUE 

WRITE ( 6 , 4638 ) AREA , T( I ) 

4638 FORMAT ( ' ' . 3X , ' AREA= ' , E 1 4 . 7 , 3X , ' THICKNESS= ' , E 1 4 7 //) 

4637 CONTINUE 
RETURN 
END 
C 

C************************************************************** 

C 

c SUBROUTINE INTRFACE 

C 

C*************** 1 ***** 1,II *** + *** , * + *******************J*:*j4t***4:**4: + + * 

c 

SUBROUTINE INTRFACE( I I ,11, 12 , RKINT , ITFLAG, IG) 

IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 RKINT (4, 4) ,Q(2400) , T( 1500) ,A1 ( 1200) . A2( 1200) , 

1 DN ( 500 ) , DT ( 500 ) 

DIMENSION MATSET( 1500) ,MTYPE( 1500) 

COMMON/CHI ST/RTOL,NN,NEL,NF,NDBC, IDUMP. I PR I , ISREF , 

1 IEQUIT, ITEMAX. ITEMP, IINT 

COMMON/DI SPH I S/DELT AO ( 2400) ,W0RKN(5OO) ,W0RKT(5OO) . FSEPN(SOO) 

1 FSEPT ( 500) 

C0MM0N/AREA4/0 
COMMON/ AREA5/T , MATSET , MTYPE 
COMMON/ AREA6/A 1 ,A2 
COMMON/ ARE A7/NSTE , INCR , ITER 

CX COMMON/INTFAC/NINT 1 , NINT2 , SIGMAX , DELTA , ALPH , DBF AC , DN , DT , ETA 

COMMON/INTFAC/NI FEM.NIFGP, ITGPL( 10,2) , I TCON( 500 . 2 ) , 

1 S I GMAX ( 10) ,DELTAN( 10 ) , DE LTAT ( 10 ) , ALPH( 10) , 

2 ETA ( 10) ,DBFAC( 10 ) , DN , DT , INTDF ( 500 ) , INTSP(SOO) 

3 , RMU ( 10) ,DISPN( 500) ,DISPT( 500) .TNRATI 0(500 ) , 

4 XRHO ( 500 ),SIGNN( 500) .TAUNT (500) ,FN( 500) ,FT( 500) 
C0MM0N/M0DPARA/RMP1 ( 10) ,RMP2( 10) ,RMP3( 10) ,RMP4( 10) ,RMP5( 10) , 

1 RMP6 ( 10) ,RMP7( 10) ,RMP8( 10) ,RMP9( 10) ,RMP10( 10) 

PI=3. 141592654 

IF ( ITFLAG .EQ. 3 ) GO TO 7 1 1 
CX NINEL=NINT2-NINT 1+1 

C 

C CALCULATE INTERFACE (NORMAL) ANGLE PHI AND WIDTH W 
C 

CX 

I1M1X =11-1 
I1P1X =11+1 
1 1M1 = ITCON( I 1 M 1 X , 1 ) 

1 1 P 1 = ITCON( I IP IX , 1 ) 

CX WRITE(6 , 100) I 1 M 1 , A1(I1M1), A2(I1M1) 

CX WRITE(6 , lOO) II, A 1 ( 1 1 ) , A2(I1) 

CX WR I TE ( 6 , 100 ) I1P1, AI(IIPI), A2(I1P1) 

CXIOO FORMAT ( / , 5X , I 5 , 1 OX , E 1 5 . 4 , 1 OX , E 1 5 . 4 , / ) 



cx 

IF ( A2(I1M1) .EQ. A2 ( I 1 ) ) THEN ! MODIFIED FOR 90 DEG 

PH1 1 - PI / 2.0 

ELSE 

PHI 1 =DAT AN( ( A 1 ( I 1 ) -A 1 ( I 1 M 1 ) ) / ( A2 ( I 1M1 ) - A2 ( I 1 ) ) ) 

ENDIF 

IF ( A2 ( I 1 ) .EQ. A2( I IP 1 ) ) THEN ! MODIFIED FOR 90 DEG 

PHI 2 = PI / 2.0 

ELSE 

PH 1 2 = DAT AN ( (A1(I1P1 ) —A 1(1 1 ))/(A2(I1 )-A2( I 1P1 ) ) ) 

ENDIF 

W1W1 = ( A 1 ( I 1 ) - A 1 ( 1 1M 1 ) ) **2 + 

1 ( A2(I1M1) - A2 ( I 1 ) ) **2 

W2W2= ( AI(IIPI) - A 1 ( I 1 ) ) * *2 + 

1 ( A2 ( 1 1 ) - A2 ( I 1 P 1 ) ) * *2 

W1 = SORT ( W 1 W 1 ) 

W2 = SORT ( W2W2 ) 

C 

C ACCOUNT FOR FIRST AND LAST ELEMENT 
C 

CX I F ( I I .GT. 1 ) GO TO 334 

CX IF(PHI2.LT. .001 ) GO TO 443 

CX PHI 1=3. 14 159265 -PHI 2 

CX GO TO 3314 

CX 443 PHI 1=PHI2 
CX 3314 W 1 =0 . 

CX 334 CONTINUE 

CX IFOI.LT. NINEL) GO TO 335 

CX IF(PHI1 .LT. .001 ) GO TO 444 

CXCX PHI2=-PHI 1 

CX PHI 2 = PHI 1 

CX GO TO 3334 

CX 444 PHI 2=PHI 1 
CX 3334 W2 =0 . 

CX 335 CONTINUE 
CX 

711 CONTINUE 

IF ( ITFLAG .EQ. 1 ) THEN 
PH1 1 = PHI 2 
W1 = 0.0 

ELSE IF ( ITFLAG . EQ . 2 ) THEN 
PHI 2 = PHI 1 
W2 = 0.0 

CX FORCE CALCULATION TRUSS ELEMENT 

CX 

ELSE IF ( ITFLAG . EQ. 3 ) THEN 
W1 = 1.0 
W2 = 1 .0 
PH1 1 = PI / 2.0 
PH I 2 = PI / 2.0 
CX 
CX 

ENDIF 

CX 

C 

C INITIALIZE INTERFACE ELEMENT STIFFNESS RKINT 
C 

DO 9 1=1.4 
DO 9 0=1 .4 
9 RKINT ( I , 0 ) =0 . 

C 

C CALCULATE INTERFACE DISPLACEMENTS UNI . UN2 . UT 1 . UT2 
C 

N 1 X = 2* 1 1 - 1 
N 1 Y=N1X+ 1 
N2X=2* I 2- 1 
N2Y=N2X+ 1 

PHI AV= ( PH1 1 +PHI 2 ) /2 . 

UX=Q( N2X )-Q(N1X) 

UY=Q( N2Y ) ~Q( N 1 Y ) 

CY UN=UX*DCOS ( PHI AV ) +UY *DS I N( PHI AV ) 

CY UT=-UX*DSI N( PHIAV)+UY*DCOS( PHI AV ) 

THETAI = PHI AV - ( PI / 2.0 ) 

UN = -UX * DS IN( THETAI ) + UY * DCOS(THETAI) 

UT = UX * DCOS( THETAI ) + UY * DSIN(THETAI) 

CY 

DN (II) =UN 
DT (II) =UT 
C 

DUX = DELTAQ( N2X ) - DELTAQ(NIX) 



DUY = DELT AQ( N2Y ) - DELTAQ(NIY) 

DUN = -DUX * DSIN(THETAI) + DUY * DCOS ( THETAI ) 
DUT = DUX * DCOS ( THETAI ) + DUY * DSIN(THETAI) 
C 
C 

C CALCULATE NORMAL AND SHEAR STIFFNESS COMPONENTS 
C RKN1 , RKN2 , RTN 1 , RTN2 
C 

CX 

C ASSIGN VARIABLES FOR KACHANOV ' S MODEL 

C 

EO = SIGMAX(IG) 

RNU = DELTAN(IG) 

GO = DELTAT ( I G ) 

ESPCRIT = ALPH(IG) 

RLAMBDA = ETA(IG) 

RL = DBFAC(IG) 

RBETA = RMU(IG) 

C CHANGE EO AND RNU TO PLANE STRAIN CONDITIONS 

EO = EO / ( 1.0- ( RNU* *2 ) ) 

RNU = RNU / ( 1.0 - RNU ) 

CX 

IF ( I TF LAG .EO. 3 ) GO TO 713 
CX 

C NOTE: THESE ARE TANGENT STIFFNESSES 
C 

c**************************************** 

C NEEDLEMAN OR TVERGAARD 

CX UND = UN / DELTAN(IG) 

CX UTD = UT / DELTAT ( IG) 

C 

C 

C KACHANOV 

C 

UND = UN / RL 
UTD = UT / RL 
DUND = DUN / RL 
DUTD = DUT / RL 


C 

C 

c KACHANOV 7 S MODEL 

C 

C STIFFNESS CALCULATIONS 

C 

C* *************************** **+**+*+*****++**+++*+*++*+***+++*++++++++ 

c 

c AREA TRUSS ELEMENT CROSS SECTIONAL AREA 

c R L THICKNESS OF INTERFACE (INP.) 

c EO YOUNG ' S MODULUS OF INTERFACE (INP.) 

c 00 SHEAR MODULUS OF INTERFACE (INP.) 

c RNU PO I SSION ' S RATIO OF INTERFACE (INP.) 

C ESPCRIT CRITICAL TENSILE STRAIN (INP.) 

C RLAMBDA DAMAGE GROWTH PROPORTIONAL CONST. (INP.) 

0 RAREA AREA OF DAMAGED ZONE 

C RLENGTH CRACK LENGTH 

C RBETA RLENGTH / RL (INP.) 

C 

C*** ******** ******************+*+**++**+**+++***+*#***+++*++*++**+*+++++ 
C 

CX CALCULATE PRINCIPLE NORMALIZED DISPLACEMENTS 

C 

RLSQ = ( UND / 2.0 )**2 + ( UTD / 2.0 )**2 


RLAM = SORT ( RLSQ ) 

UM 1 = UND / 2.0 + RLAM 

UM2 = UND / 2.0 - RLAM 

UMAX = DMAX 1 ( UM 1 , UM2 ) 

AREA = ( W1 + W2 ) / 2.0 * T( 1 ) 

RAREA = AREA / T( 1 ) * RL 
C 

IF ( UMAX .LE. ESPCRIT ) THEN ! INTERFACE INTACT 

C 

IF ( UND .EQ. 0.0 .AND. UTD . EO . 0.0 ) THEN 
022 = EO / ( 1.0 - RNU*RNU ) 

066 = GO 

RKN = 022 * AREA / RL 

RKT = 066 * AREA / RL 

ELSE 

IF ( UND .LT. 0.0 ) THEN 
UNDC =0.0 


! MODIFY DISPLACEMENTS 
! FOR COMPRESSIVE LOADS 



c 

c 

c 

c 

c 

c 


cx 

cx 


c 

c 

c 

cxx 

cxx 

cxx 

cx 

cxx 

cxx 

cxx 

cxx 

cxx 

CXXY 

cxx 


c 

c 

c 


cxx 

cxx 

cxx 

c 

c 

cxx 

cxx 

cxx 

cxx 

cxx 

cxx 

cxx 

cxx 

c 

c 

c 

CXY 

CXY 

CXY 

CXY 

c 

c 

c 

CXY 

CXY 

CXY 

CXY 

CXY 

c 

c 

c 

CXY 

CXY 


UTDC = UTD 
ELSE 

UNDC = UND 
UTDC = UTD 
END IF 

TRANSFORM NORMALIZED DISPLACEMENTS TO PRINCIPLE DAMAGE 
COORDINATES (1,2) 

(CURRENTLY ASSUME ALL MATRIX CRACKS TO BE ORIENTED 
AT AN 45 DEGREES ANGLE) 

P4 = PI / 4.0 

P42 = P4 * 2.0 

DC2 = DCOS ( P4 ) * DCOS ( P4 ) 

UNDPD = -UTD*DS I N( P4 ) + UND*DC0S(P4) 

UTDPD = UTD*DCOS ( P4 ) + UND*DSIN(P4) 

UNDPD = UNDC * DC2 - ( 0.5 * UTDC ) * DSIN(P42) 

UTDPD = 0.5 * UNDC * DSIN(P42) + ( 0.5 * UTDC ) * DC0S(P42) 

DUNDP = DUND * DC2 - ( 0.5 * DUTD ) * DSIN(P42) 

DUTDP = 0.5 * DUND * DSIN(P42) + ( 0.5 * DUTD ) * DC0S(P42) 

DETERMINE EFFECTIVE PROPERTIES 


MODIFICATION FOR STRESS DEPENDENT DAMAGE GROWTH 

R I = RLAMBDA * DABS ( UNDPD ) ! RLAMBDA * UNDPD 

RI = RLAMBDA * DABS ( UTDC ) \ RLAMBDA * UTDC 

RLENGTH = RBETA * RL ! RBETA * RL 

RHO = R I * RLENGTH**2 / RAREA 
RHO = DMAX 1 ( RHO, XRHO(II) ) 

XRHO(II) = RHO 
RHO = XRHO(II) 

RHO = XRHO(II) 

El = EO ! EO DEPENDS ON PLANE STRESS 

E2 = EO / ( 1.0 + 2 . 0*P I *RHO ) ! OR PLANE STRAIN CONDITIONS 

RNU12 = RNU 

RNU21 = RNU / ( 1.0 + 2.0*PI*RHO) 

G12 = GO / ( 1.0 + 2 . 0*PI ♦RHO* ( GO/EO ) ) 

FORM REDUCED STIFFNESS MATRIX 

011 = El / ( 1.0 - RNU 12*RNU2 1 ) 

012 = RNU21 * 01 1 

022 = E2 / ( 1.0 - RNU 1 2*RNU2 1 ) 

066 = G12 

BEGIN CXX MODIFICATIONS HERE 

CALCULATE PRINCIPAL STRESSES 

SIGNN(II) = SIGNN(II) + Q22 * DUNDP 
T AUNT (II) = T AUNT (II) + 066 * DUTDP 

SIGSIG = ( SIGNN(II) / 2.0 )**2 + ( TAUNT(II) / 2.0 )**2 
RSI G = SORT ( SIGSIG ) 

SIGM1 = SIGNN( II )/2.0 + RSIG 
SIGM2 = S I GNN( II )/2 . 0 - RSIG 
SIGPRIN = DMAX 1 ( SIGM 1 , SIGM2 ) 

TAUMAX = RSIG 

CALCULATE THE VALUE OF RHO (MICRO CRACK DAMAGE) 

RI = RLAMBDA * DABS( SIGPRIN ) 

RLENGTH = RBETS * RL 

RHO = RI * RLENGTH**2 / RAREA 

XRHO(II) = DMAX1( RHO, XRHO(II) ) 

CALCULATE EFFECTIVE PROPERTIES WITH UPDATED VALUE OF RHO 

El = EO ! EO DEPENDS ON PLANE STRESS 

E2 = EO / ( 1.0 + 2 . 0*PI *RHO ) ! OR PLANE STRAIN CONDITIONS 

RNU 12 = RNU 

RNU21 = RNU / ( 1.0 + 2 . 0*P I *RHO ) 

G 1 2 = GO / ( 1.0 + 2 .O*PI*RH0*(GO/EO) ) 

FORM REDUCED STIFFNESS MATRIX 

Q11 = El / ( 1.0 - RNU 1 2*RNU2 1 ) 

012 = RNU21 * Oil 



022 = E2 / ( 1.0 - RNU 1 2*RNU2 1 ) 

066 * G12 


END CXX MODIFICATION 


TRANSFORM SELECTED STIFFNESS COMPONENTS TO INTERFACIAL COORD. 
(-45 DEG) 

PN4 = -PI / 4.0 

0BAR11 = 01 1*DC0S(PN4)**4 

+ 2 . O* ( 012 + 2.0*066 )*DSIN(PN4 ) * *2*DC0S ( PN4 ) **2 
+ Q22*DS I N( PN4 ) * *4 

0BAR12 = ( Oil + 022 - 4.0*066 ) *DS IN ( PN4 ) * *2 
*DCOS ( PN4 ) * * 2 

+ 0 1 2* ( DSIN(PN4)**4 + DC0S(PN4)**4 ) 

QBAR22 = Q1 1*DSIN(PN4)**4 

+ 2 . 0* ( 012 + 2.0*066 ) *DS I N( PN4 ) * *2 *DCOS ( PN4 ) * *2 
+ 022*DC0S ( PN4 ) * *4 

0BAR16 = ( Oil - 012 - 2.0*066 ) *DSIN( PN4 ) *DCOS( PN4 ) **3 
+ ( 012 - 022 + 2.0*066 )*DSIN( PN4 ) **3*DC0S(PN4) 
0BAR26 = ( Oil - 012 - 2.0*066 ) *DSIN( PN4 ) **3*DC0S( PN4 ) 

+ ( 012 - 022 + 2.0*066 ) *DSIN( PN4 ) *DCOS( PN4 ) **3 
0BAR66 = ( Oil + 022 

- 2.0* (01 2+066) )*DSIN(PN4)**2*DC0S(PN4)**2 
+ 066* ( DSIN(PN4)**4 + DC0S(PN4)**4 ) 

INVERT TRANSFORMED REDUCED STIFFNESS MATRIX TO DETERMINE 
S22 AND S66 OF MATERIAL, THEN TAKE RECIPROCAL TO GET 
ED22 AND GDI 2 

S22 = ( 0BAR11 * QBAR66 - QBAR16**2 ) / 

( 0BAR11 * 0BAR22 * QBAR66 - QBAR12**2 * QBAR66 - 
0BAR11 * OB AR26* * 2 + 2.0 * GBAR12 * QBAR16 * QBAR26 - 
QBAR 16**2 * 0BAR22 ) 

S66 = ( QBAR 1 1 * 0BAR22 - 0BAR12**2 ) / 

( QBAR 1 1 * 0BAR22 * 0BAR66 - QBAR12**2 * QBAR66 - 
0BAR11 * QBAR26* *2 + 2.0 * QBAR 1 2 * QBAR16 * QBAR26 - 
QBAR 16**2 * 0BAR22 ) 

ED22 = 1.0/ S22 
GD66 = 1.0/ S66 


WRI TE ( 6 , 8899 ) ED22.GD66 


CX 8899 F0RMAT(5X, / ED22= 
CYX 

CX RKN = ED22 

CX RKT = GD66 

RKN = QBAR22 

RKT = QBAR66 


, E 1 5 . 5 , 5X , 7 GD66 = ' , E 1 5 . 5 ) 

AREA / RL 
AREA / RL 
AREA / RL 
AREA / RL 


IF ( UNO .LT. 0.0 ) THEN ! MODIFY NORMAL STIFFNESS 

RKN = 10.0E2 * 0BAR22 * AREA / RL ! FOR COMPRESSIVE LOADS 
RKN = QBAR22 * AREA / RL 

ENDIF 

CHECK FOR PRIOR INTERFACIAL FAILURE 
IF ( INTDF(II) .GT. O ) THEN 
RKT =0.0 

IF ( UNO .GT. 0.0 ) THEN 
RKN =0.0 
ENDIF 
ENDIF 


INTERFACE SEPARATED 


IF ( UND .LT. 0.0 
022 = EO / ( 1 

RKN = 10.0E2 


0.0 ) THEN 
( 1.0 - RNU* RNU ) 

0E2 * 022 * AREA / RL 


= 022 * AREA / RL 


RKT 

ELSE 

RKN 

RKT 

ENDIF 

ENDIF 


C 



713 CONTINUE 


CX FORCE CALCULATION ELEMENT 

CX 

IF ( ITFLAG .EQ. 3 ) THEN 

AREA * ( W1 + W2 ) / 2.0 * T< 1 ) 

022 = EO / ( 1.0 - RNU*RNU ) 

066 = GO 

RKN = 022 * AREA / RL 
RKT = 066 * AREA /RL 
END IF 
CX 
CX 
C 

C CALCULATE RKINT MATRIX 
C 

C 1 =DCOS ( PHI A V ) 

S 1 =DSI N( PHI AV ) 

C2=DC0S( PHI AV - PI/2. ) 

S2=DSIN( PHI AV - PI/2. ) 

I F ( I DUMP . LT . 3 ) GO TO 666 
WRITE ( 6 , lOO 1 ) C1.C2.S1.S2 
1001 FORMAT( lOX, 'Cl = ' , E 1 5 . 7 . 5X , ' C2 = '.E15.7,/. 

1 lOX.'SI = ' .E15.7.5X, 'S2 = '.E15.7,/) 

666 CONTINUE 
CY NEW 

RKINT (1,1)= RKN*C 1**2 + RKT*C2**2 
RKINT (1,2)= RKN*C 1 *S 1 + RKT*C2*S2 
RKINT (1 , 3 ) = -RKN*C1**2 - RKT*C2**2 
RKINT ( 1 , 4 ) = -RKN*C1*S1 - RKT*C2*S2 
RKINT (2,2)= RKN*S1**2 + RKT*S2**2 

RKINT (2,3)= -RKN*C1*S1 - RKT*C2*S2 
RKINT (2,4)= -RKN*S1**2 - RKT*S2**2 
RKINT (3,3)= RKN*C1**2 + RKT*C2**2 

RKINT (3,4)= RKN*C1*S1 + RKT*C2*S2 
RKINT (4,4)= RKN*S1**2 + RKT*S2**2 


CY 

OLD 





CY 

RKINT ( 1,1) 

= 

RKN*C 1**2 

+ 

RKT*S 1**2 

CY 

RKINT ( 1 ,2) 

= 

-RKN*C1*S1 

+ 

RKT*C1*S1 

CY 

RKINT( 1,3) 

= 

“RKN*C 1**2 

- 

RKT*S 1**2 

CY 

RKINT( 1 ,4) 

= 

RKN*C1*S1 

- 

RKT*C1*S1 

CY 

RKINT (2,2) 

= 

RKN*S 1**2 

+ 

RKT*C 1**2 

CY 

RKINT (2,3) 

= 

RKN*C 1 *S 1 

- 

RKT*C1*S1 

CY 

RKINT (2,4) 

= 

-RKN*S 1**2 

- 

RKT*C 1**2 

CY 

RKINT (3,3) 

= 

RKN*C 1**2 

+ 

RKT*S 1**2 

CY 

RKINT (3,4) 

= 

-RKN*C 1 *S 1 

+ 

RKT *C 1 *$ 1 

CY 

CY 

RKINT (4,4) 

= 

RKN*S 1**2 

+ 

RKT *C 1 * *2 


DO 99 J= 1 ,4 
U 1 = J+ 1 

DO 99 I = J 1 , 4 
99 RKINT (I , J ) =RKINT ( J , I ) 

IF(IDUMP . LT .3) GO TO 667 
WRITE ( 6 , 1002) 

1002 FORMAT( 10X, 'THE RKINT MATRIX IS'.//) 

DO 44 1=1,4 

WRITE(6, 1003) ( RKINT ( I , d ) , J= 1 ,4) 

1003 FORMAT (4(5X,E15.7)) 

44 CONTINUE 

667 CONTINUE 
RETURN 
END 
C 

Q************************************************************** 

C 

C SUBROUTINE ASEMINT 

C 

C THIS ROUTINE ASSEMBLES THE INTERFACE ELEMENTS 

C 

£*************** ************************************************ 

c 

SUBROUTINE ASEMINT ( AK , RKINT , NPE . NI CON . NDOFPN ) 

IMPLICIT REAL*8( A-H.O-Z) 

REAL*8 AK(2400, 600) , RKINT (4,4) 

DIMENSION NI CON ( 2 ) 

C > FIRST THE ROWS 

DO lO JJ = 1 , NPE 

NROW = ( NICON(dd) - 1 ) *NDOFPN 

DO 10 J = 1 , NDOFPN 

NROW = NROW + 1 

I = ( dd-1 ) ♦NDOFPN + J 



non 


c > THEN THE COLUMNS 

DO 10 KK = 1 , NPE 

NCOLB = ( NICON(KK) - 1 )*NDOFPN 
DO 10 K = 1, NDOFPN 
L = ( KK- 1 ) *NDOFPN + K 

NCOL = NCOLB + K + 1 - NROW 
c > DO NOT STORE BELOW DIAGONAL 


IF ( NCOL .LE. O ) GO TO 10 

AK( NROW , NCOL ) = AK( NROW , NCOL ) +RKI NT ( I , L ) 

10 CONTINUE 
RETURN 
END 
C 

c 

c SUBROUTINE FGLOB 

C 

C THIS SUBROUTINE CALCULATES THE GLOBAL FORCE MATRIX 

C 

c*************************************************************** 

c 

SUBROUTINE FGLOB ( FGL , FG , NTOT , S ) 

IMPLICIT REAL*8(A-H,0-2) 

REAL*8 FEL(6) ,T( 1500) , FGL (2400) ,S( 1500,4) . A1 ( 1200) ,A2( 1200) , 

1 B(3,6),FG( 2400 ) , KGS( 2400 , 600 ). 0( 2400 ) ,FINT(4) ,DN(500), 

2 DT ( 500 ) 

INTEGER NODE ( 1 500 , 3 ) , NDOF ( 1500) , MATSET ( 1500) , MTYPE ( 1500) 
COMMON/ CHI ST/RTOL , NN , NEL , NF # NDBC , I DUMP , I PR I , ISREF , 

1 IEQUIT, ITEMAX, I TEMP, 1 1 NT 

COMMON/DI SPHI S/DE LTAQ( 2400) ,W0RKN(5OO) ,W0RKT(5OO) , FSEPN(500) , 
1 FSEPT ( 500 ) 

COMMON/ ARE A 1/B 
COMMON/ AREA2/N0DE , NDOF 
COMMON/ AREA4/Q 
C0MM0N/AREA5/T , MATSET , MTYPE 
COMMON/ AREA6/A 1 , A2 
COMMON/ AREA7/NSTE , INCR, ITER 

COMMON/LOAD/TIMV ( 1 , 1000) , RV( 1 , 1000) , INODE ( 100) , I CURVE ( 100) , 

1 D I NC ( 1000) , DPM I NC ( 1000) , DMULT ( 1 , 1000) 

COMMON/STIF/KGS 
COMMON/BAND ED/M AXBW 

CX COMMON/ 1 NTFAC/NINT 1 ,NINT2 , SI GMAX , DE LTA , ALPH , DBF AC , DN , DT , ETA 

COMMON/I NTFAC/NIF EM, NIFGP, ITGPL( 10, 2) , I TCON( 500 , 2 ) , 

1 SIGMAX ( 10) ,DELTAN( 10) , DELTAT ( 10) ,ALPH( 10), 

2 ETA ( 10) , DBFAC( 10) , DN,DT, INTDF(500) , INTSP(500) 

3 , RMU( 10) ,DISPN( 500) , DISPT (500) , TNRATIO(500) , 

4 XRHQ( 500 ) ,SIGNN( 500) .TAUNT (500) , FN( 500) , FT ( 500) 
COMMON/MOD PARA/RMP 1(10), RMP2( 10) , RMP3( 10) , RMP4( 10) , RMP5( 10), 

1 RMP6( 10) , RMP7 ( 10) ,RMP8( 10) ,RMP9( 10) ,RMP10( 10) 

NTOT = 2*NN 
DO 8888 1=1 , NEL 
CALL SHAPE (1,1 DUMP , ARE A ) 

DO 33 L=1 ,6 
FEL ( L ) =0 . 

DO 33 K= 1 , 3 

33 FEL(L)=FEL(L)+S(I ,K)*B(K,L) 

DO 34 L = 1 , 6 

34 FEL(L)=FEL(L)*AREA*T(I ) 

DO 55 K= 1 , 3 

N2=N0DE ( I , K ) *2- 1 

1 1 =2’*' ( K- 1 )+1 

FG(N2 )=FG(N2 )-FEL( II ) 

55 FG(N2+1 )=FG(N2+1 )-FEL( 1 1 + 1 ) 

8888 CONTINUE 

I F ( IDUMP . LT . 3 ) GO TO 4935 
WRITE ( 6 , 6009 ) 

6009 F0RMAT(//25X. ' FG IS',//) 

DO 999 1=1 .NTOT 

WRITE ( 6 , 6010) FG( I ) 

6010 FORMAT ( 1 5X . E 1 6 . 7 ) 

999 CONTINUE 

4935 CONTINUE 

IF(IINT.EQ.O) GO TO 9199 

INCLUDE FORCES CAUSED BY INTERFACE ELEMENTS 

PI = 3 . 141592654 
CX NINE L=NINT2-NINT 1+1 

CX 1 1 =NINT 1 

CX 12=1 1+NINEL 



cx 

cx 


DO 4544 1=1 , NINEL 


C 


CX 

CX 


CX 

CX 


C 


CX 


C 

c 

c 


DO 4600 d = 1, NIFGP ! 

DO 4544 I = ITGPL( d , 1 ) , ITGPL(d,2) ! 

IF ( I . EQ. ITGPL ( d , 1 ) ) THEN 
ITF LAG = 1 

ELSE IF ( I .EQ. I T GPL ( d , 2 ) ) THEN 
ITF LAG = 2 

FORCE CALCULATION ELEMENT 

ELSE IF ( ITGPL(d.l) .EG. ITGPL(d,2) 
ITFLAG = 3 


ELSE 

ITFLAG = O 
ENDIF 

I 1 = I T CON( 1,1) 

12 = ITCON( 1,2) 

IF ( ITFLAG .EQ. 3 ) GO TO 711 
I1M1X =1-1 
I 1 P 1 X = 1 + 1 
1 1 M 1 = ITC0N(I1M1X, 1 ) 

I1P1 = ITCON( I 1 P IX , 1 ) 

CALCULATE INTERFACIAL NORMAL ANGLE 


IF ( A2 ( I 1M 1 ) .EG. A2 (II) ) THEN ! 

PHI 1 = PI / 2.0 
ELSE 

PHI 1 =DAT AN( ( A 1 ( I 1 ) -A 1 ( I 1 M 1 ) ) / ( A2 ( I 
ENDIF 

IF ( A2 (II) .EG. A2 ( I 1 P 1 ) ) THEN ! 

PHI 2 = PI / 2.0 
ELSE 

PHI 2 = D AT AN( ( A 1 ( I 1 P 1 ) -A 1 ( I 1 ) ) / ( A2 ( I 
ENDIF 

W1W1 = (A1(I1 ) —A 1(1 1M1 ))**2 + 

1 (A2( I 1M1 ) -A2( I 1 ) )**2 

W2W2=(A1 ( I 1P1 )-A1 ( I 1 ) )**2 + 

1 ( A2( I 1 ) -A2 (I1P1))**2 

W1 = SQRT(WIWI) 

W2 = SORT ( W2W2 ) 

C 

C ACCOUNT FOR FIRST AND LAST ELEMENT 
C 

CX IF (I .GT. 1 ) GO TO 334 

CX IF(PHI2.LT. .001 ) GO TO 443 

CX PH1 1=3 . 14 159265-PHI 2 

CX GO TO 3314 

CX 443 PH1 1 =PHI 2 
CX 3314 W1=0. 

CX 334 CONTINUE 

CX IF(I .LT. NINEL) GO TO 335 

CX IF(PHI1 .LT. .001 ) GO TO 444 

CXCX PHI2=-PHI 1 

CX PHI 2 = PHI 1 

CX GO TO 3334 

CX 444 PHI 2 = PH1 1 

CX 3334 W2=0 . 

CX 335 CONTINUE 
CX 


711 


CX 

CX 


CX 


CONTINUE 

IF ( ITFLAG .EG. 1 ) THEN 


PHI 1 

= PHI 2 



W1 = 

0.0 



ELSE IF 

( ITFLAG .EQ. 2 

) 

THEN 

PHI 2 

= PHI 1 



W2 = 

0.0 




FORCE CALCULATION 

1 ELEMENT 

ELSE IF 

( ITFLAG .EG. 3 

) 

THEN 

W1 = 

1 .0 



W2 = 

1 .0 



PHI 1 

= PI / 2.0 



PHI 2 

= PI / 2.0 




LOOP OVER GROUPS 
LOOP OVER ELEMENTS 

) THEN 


, PHI 

MODIFIED FOR 90 DEG 

1M1)-A2(I1))) 
MODIFIED FOR 90 DEG 

1 ) “A2( I IP 1 ) ) ) 



cx 

END IF 
CX 

N 1X = 2* I 1-1 
N 1 Y=N1 X+ 1 
N2X=2* 12- 1 
N2Y = N2X+ 1 

PHI AV= ( PHI 1 + PHI 2 )/2 . 

CY UN= ( Q( N2X )-Q(N1X)) *DCOS ( PHI AV )+ ( Q( N2Y )-Q(N1Y))*DSIN( PHI AV ) 

CY UT=-(Q(N2X)-Q(N1X ) ) *DSIN( PHI AV )+ ( Q ( N2 Y )-Q(N1Y) ) *DCOS ( PHI AV ) 

THETAI = PHI AV - ( PI / 2.0 ) 

UN = ~(0(N2X )-Q(N1X) )*DSIN(THETAI ) + 

1 (Q(N2Y)-Q(N1Y) )*DC0S( THETAI ) 

UT = (Q(N2X)-0(N1X) )*DCOS(THETAI ) + 

1 (0(N2Y )-Q(N1Y ) ) *DSIN(THETAI ) 

CY 

CX 

C ASSIGN VARIABLES FOR KACHANOV ' S MODEL 

C 

EO = SIGMAX(d) 

RNU = DELTAN(d) 

GO = DELTAT(d) 

ESPCRIT = ALPH(d) 

RLAMBDA = ETA(d) 

RL = DBFAC(J) 

RBETA = RMU(d) 

C CHANGE EO AND RNU TO PLANE STRAIN CONDITIONS 

EO = EO / ( 1.0- (RNU**2) ) 

RNU = RNU / ( 1.0 - RNU ) 

CX 

c**************************************** 

C NEEDLEMAN OR TVERGAARD 

CX UND = UN / DELTAN(d) 

CX UTD = UT / DELTAT(J) 

C 

c 

C KACHANOV 

C 

UND = UN / RL 

UTD = UT / RL 

C 

c** *************************** *********** 

c 

CX 

IF ( ITFLAG .EQ. 3 ) GO TO 713 
C 
C 

DUX = DELTAQ(N2X) - DELTAQ(NIX) 

DUY = DELTA0(N2Y) - DELTAQ(NIY) 

CY 

CY DUN = DUX * DCOS(PHIAV) + DUY * DSIN(PHIAV) 

CY DUT = -DUX * DSIN(PHIAV) + DUY * DCOS(PHIAV) 

CY 

DUN = -DUX * DSIN(THETAI) + DUY * DCOS ( THETAI ) 

DUT = DUX * DCOS(THETAI) + DUY * DS IN( THETAI ) 

CY 

DUND = DUN / RL 

DUTD = DUT / RL 

C 

I F ( IDUMP.LT. 3) GO TO 6034 

WRITE ( 6 , lOOO) I 1 . PHI 1 ,PHI2, W1 , W2 , UN , UT . UND t UTD 
1000 FORMAT ( 10X , ' IN FGLOB - II = ' , 13 , / , 10X , ' PHI 1 = ',E15.7, 

1 IX,' PHI2 = ' .E15.7,/, 10X, 'W1 = ',E15.7, 

2 IX, 'W2 = ' , E 15 . 7 , / , 10X , 'UN = '.E15.7, 

3 IX, 'UT = ' , E 15 . 7 , / , 10X, ' UND = ',E15.7, 

4 IX, 'UTD = ' , E 1 5 . 7 , / ) 

6034 CONTINUE 

CX 

cx WRITE ( 6 , 3000 ) II, UND, UTD 

cx 3000 FORMAT ( 10X , ' IN FGLOB - II = ' , 1 3 , / , 15X , ' UND = '.E15.7.5X, 
cx 1 • UTD = ' , E 1 5 . 7 , / ) 

CX 

C 

C CALCULATE NORMAL AND TANGENTIAL FORCE COMPONENTS 
C FN, FT 
C 

c ********************** KACHANOV'S MODEL ************************** 

CX 

C FORCE CALCULATIONS 

C 





c **** 
c 

c AREA TRUSS ELEMENT CROSS SECTIONAL AREA 

C RL THICKNESS OF INTERFACE ( INP . ) 

C EO YOUNG'S MODULUS OF INTERFACE (INP.) 

C GO SHEAR MODULUS OF INTERFACE (INP.) 

c R NU POISSION' S RATIO OF INTERFACE (INP.) 

C ESPCRIT CRITICAL TENSILE STRAIN (INP.) 

C RLAMBDA DAMAGE GROWTH PROPORTIONAL CONST. (INP.) 

C RAREA AREA OF DAMAGED ZONE 

C RLENGTH CRACK LENGTH 

C RBETA RLENGTH / RL (INP.) 

C 

C ************************************************************************* 
c 

CX CALCULATE PRINCIPLE NORMALIZED DISPLACEMENTS 

C 

RLSO = ( UND / 2 . 0 ) * *2 + ( UTD / 2.0)**2 
RLAM = SORT ( RLSO ) 


UM 1 = UND / 2.0 + RLAM 
UM2 = UND / 2.0 - RLAM 
UMAX = DMAX 1 ( UM 1 , UM2 ) 

AREA = ( W1 + W2 ) / 2.0 * T( 1 ) 

RAREA = AREA / T( 1 ) * RL 
C 

IF ( UMAX . LE. ESPCRIT ) THEN ! INTERFACE INTACT 

C 

IF ( UND .EQ. 0.0 .AND. UTD .EQ. 0.0 ) THEN 
022 = EO / ( 1.0 - RNU*RNU ) 

066 = GO 
FN( I ) = 0.0 
FT ( I ) = 0.0 

ELSE 

IF ( UND .LT. 0.0 ) THEN ! MODIFY NORMALIZED 

UNDC = 0.0 ! DISPLACEMENTS FOR 

UTDC = UTD ! COMPRESSIVE LOADS 

ELSE 

UNDC = UND 

UTDC = UTD 

ENDIF 
C 

C TRANSFORM NORMALIZED DISPLACEMENTS TO PRINCIPLE DAMAGE 

C COORDINATES (1,2) 

C 

P4 = PI / 4.0 

P42 = P4 * 2.0 

DC2 = DCOS ( P4 ) * DC0S(P4) 

CX UNDPD = -UTD*DSIN( P4 ) + UND*DC0S(P4) 

CX UTDPD = UTD*DCOS( P4 ) + UND*DSIN(P4) 

UNDPD = UNDC * DC2 - ( 0.5 * UTDC ) * DSIN(P42) 

UTDPD = 0.5 * UNDC * DSIN(P42) + ( 0.5 * UTDC ) * DC0S(P42) 

DUNDP = DUND * DC2 - ( 0.5 * DUTD ) * DSIN(P42) 

DUTDP = 0.5 * DUND * DSIN(P42) + ( 0.5 * DUTD ) * DC0S(P42) 

C 

C DETERMINE EFFECTIVE PROPERTIES 

C 

C CXX MODIFICATION TO USE STRESS DEPENDENT DAMAGE 

C GROWTH LAW 

C 


CX 

RI = RLAMBDA * DABS(UNDPD) 

! RLAMBDA * UNDPD 

CXX 

RI = RLAMBDA * DABS ( UTDC ) 

! RLAMBDA * UTDC 

CXX 

RLENGTH = RBETA * RL 

! RBETA * RL 

CXX 

RHO = R I * RLENGTH* *2 / RAREA 


CXX 

RHO = DMAX 1 ( RHO, XRHO(I) ) 


CXX 

XRHO(I) = RHO 



RHO = XRHO(I) 


CXX 



CXX 




El = EO ! EO DEPENDS ON PLANE STRESS 

E2 = EO / ( 1.0 + 2 . 0*PI *RHO ) ! OR PLANE STRAIN CONDITIONS 

RNU12 = RNU 

RNU21 = RNU / ( 1.0 + 2 .0*PI *RHO ) 

G 1 2 = GO / ( 1.0 + 2 .0*PI*RHO*(GO/EO) ) 

C 

C FORM REDUCED STIFFNESS MATRIX 

C 

011 = El / ( 1.0 - RNU 1 2*RNU2 1 ) 

012 = RNU21 * Oil 

022 = E2 / ( 1.0 - RNU 1 2*RNU2 1 ) 

066 = G 1 2 



cxx 

CXX BEGIN CXX MODIFICATIONS 

CXX 

C 

C CALCULATE PRINCIPAL STRESSES FOR DAMGE GROWTH LAW 

C 

SIGNN(I) = SIGNN(I) + Q22 * DUNDP 
TAUNT ( I ) = T AUNT ( I ) + Q66 * DUTDP 

SIGSIG = (SIGNN(I) / 2.0 )**2 + (TAUNT ( I ) / 2.0 )**2 
RSIG = SORT (SIGSIG) 

SIGM1 = SIGNN( I )/2 . 0 + RSIG 
SIGM2 = SIGNN( I )/2 . O - RSIG 
SIGPRIN = DMAX1 (SIGM1 , SIGM2) 

TAUMAX = RSIG 
C 

C CALCULATE THE VALUE OF RHO (MICRO CRACK DAMAGE) 

C 

RI = RLAMBDA * DABS ( SIGPRIN ) 

RLENGTH = RBETA * RL 

RHO = R I * RLENGTH**2 / RAREA 

XRHO(I) = DMAX1( RHO, XRHO(I) ) 

C 

C RECALCULATE EFFECTIVE PROPERTIES WITH UPDATED RHO 

C 

El = EO ! EO DEPENDS ON PLANE STRESS 

E2 = EO / ( 1.0 + 2 . 0*P I ’♦‘RHO ) ! OR PLANE STRAIN CONDITIONS 
RNU12 = RNU 

RNU21 = RNU / ( 1.0 + 2.0*PI*RH0) 

G 1 2 = GO / ( 1.0 + 2 . 0*PI *RHO* (GO/EO) ) 

C 

C FORM REDUCED STIFFNESS MATRIX 

C 

Q11 = El / ( 1.0 - RNU 1 2 *RNU2 1 ) 

Q 1 2 = RNU21 * Oil 

Q22 = E2 / ( 1.0 - RNU 1 2*RNU2 1 ) 

066 = G12 

CXX 

CXX END MODIFICATION FOR STRESS DEPENDENT DAMAGE GROWTH 

CXX 
C 
C 
C 


1 
2 

1 
2 

1 

2 

1 

1 

1 
2 
C 

C INVERT TRANSFORMED REDUCED STIFFNESS MATRIX TO DETERMINE 

C S22 AND S66 OF MATERIAL, THEN TAKE RECIPROCAL TO GET 

C ED22 AND GD 1 2 

C 

CX S22 = ( 0BAR11 * QBAR66 - QBAR16**2 ) / 

CX 1 ( QBAR11 * 0BAR22 * QBAR66 - QBAR12**2 * QBAR66 - 

CX 2 QBAR11 * QBAR26* *2 + 2.0 * 0BAR12 * QBAR16 * QBAR26 - 

CX 3 QBAR 16**2 * QBAR22 ) 

CX S66 = ( QBAR 1 1 * 0BAR22 - QBAR12**2 ) / 

CX 1 ( QBAR 1 1 * QBAR22 * QBAR66 - QBAR12**2 * QBAR66 - 

CX 2 QBAR 1 1 * QBAR26* *2 + 2.0 * QBAR 1 2 * 0BAR16 * QBAR26 - 

CX 3 QBAR 16**2 * QBAR22 ) 

CX ED22 - 1.0/ S22 

CX GD66 = 1.0 / S66 

FN( I ) = FN( I ) - QBAR22 * AREA * ( DUND ) 

FT ( I ) = FT ( I ) - 2.0 * QBAR66 * AREA * ( 0.5 * DUTD ) 

CX ADJUST NORMAL FORCE FOR COMPRESSIVE LOADS 

IF ( UND . LT. 0.0 ) THEN 

CY FN(I) = FN( I ) -10.0E2 * QBAR22 * ( UND ) 

FN( I ) = FN( I ) - QBAR22 * AREA * ( DUND ) 


TRANSFORM SELECTED STIFFNESS COMPONENTS TO INTERFACIAL COORD. 
(-45 DEG) 

PN4 = -PI / 4.0 

QBAR 11 = 01 1*DC0S(PN4)**4 

+ 2 . 0* ( Q 1 2 + 2 . 0*066 ) *DSIN( PN4 ) **2*DC0S( PN4 ) **2 
+ Q22*DSIN(PN4)**4 

QBAR 1 2 = ( Oil + Q22 - 4.0*066 ) *DSIN( PN4 ) **2 
*DCOS( PN4 ) * *2 

+ 0 1 2* ( DSIN( PN4 ) * *4 + DC0S(PN4)**4 ) 

QBAR22 = Q1 1*DSIN(PN4)**4 

+ 2 . O* ( 012 + 2.0*066 ) *DSIN( PN4 ) * *2*DC0S ( PN4 ) * *2 
+ Q22*DC05 ( PN4 ) * *4 

0BAR16 = ( Oil - 012 - 2.0*066 ) *DS I N( PN4 ) *DCOS ( PN4 ) **3 
+ ( 012 - 022 + 2.0*066 ) *DSIN( PN4 ) * *3*DC0S( PN4 ) 
0BAR26 =(011- Q 1 2 - 2.0*066 )*DSIN(PN4 ) * *3*DC0S( PN4 ) 

+ ( 012 - 022 + 2.0*066 ) *DSIN(PN4 ) *DCOS( PN4 ) **3 
0BAR66 =(011+ Q22 

- 2.0* (012+066) )*DSIN(PN4)**2*DC0S(PN4)**2 
+ 066* ( DSIN(PN4)**4 + DC0S(PN4)**4 ) 



CY 


END I F 

CY CHECK FOR PRIOR FAILURE 

IF ( INTDF(I) .GT. O ) THEN 
FT(I) = 0.0 

IF ( UND .GT. 0.0 ) THEN 
FN( I ) = 0.0 
END I F 
END IF 
CX 

cx 

CYX WR I TE ( 6 , 4567 ) ED22 , GD66 

CYX 4567 FORMAT ( 10X, ' ED22= ' , E 1 5 . 6 , 5X , ' GD66 = ' E15 6) 
CX 
CX 
C 


C 


ENDIF 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c CALCULATE INCREMENT OF WORK OF SEPARATION 

C 

IF ( UND .LT. 0.0 ) THEN 
DWORKN =0.0 
ELSE 

DWORKN = DABS ( FN( I ) ) * DABS ( DUN ) 

ENDIF 

DWORKT = DABS( FT ( I ) ) * DABS ( DUT ) 

IF ( INTDF(I) .GT. O ) THEN 
DWORKN =0.0 
DWORKT =0.0 
ENDIF 

WORKN(I) = WORKN(I) + DWORKN 
WORKT(I) = WORKT(I) + DWORKT 
C 


C 


CY 

CY 


ELSE 


INTERFACE SEPARATED 


IF ( UND .LT. 0.0 ) THEN 

022 = EO / ( 1.0 - RNU*RNU ) 

FN( I ) = FN( I ) - 10.0E2 * 022 * AREA * ( DUND ) 
FN( I ) = FN( I ) -022 * AREA * ( DUND ) 


FT ( I ) 
ELSE 

FN( I ) 
FT ( I ) 
ENDIF 
DWORKN = 
DWORKT = 
WORKN ( I ) 
WORKT ( I ) 
ENDIF 


= 0.0 

= 0.0 
= 0.0 

0.0 

0.0 

= WORKN(I) + DWORKN 
= WORKT ( I ) + DWORKT 


CX 

CX 

CX 


END KACHANOV'S MODEL *********************** 


713 CONTINUE 

CX FORCE CALCULATION ELEMENT 

CX 

IF ( ITFLAG .EO. 3 ) THEN 

022 = EO / ( 1.0 - RNU*RNU ) 

066 = GO 

FN( I ) = “Q22 * AREA * ( UND ) 

FT ( I ) = “2.0 * 066 * AREA * ( 0.5 * UTD ) 

ENDIF 

CX 

CX 

CY OLD 

CY FINT( 1 ) =FN( I ) *DCOS (PHIAV)-FT(I )*DSIN( PHI AV ) 

CY F INT ( 2 ) =FN ( I )*DSIN(PHIAV)+FT(I )*DCOS(PHIAV) 

CY F INT ( 3 ) =-FN( I ) *DCOS (PHIAV)+FT( I ) *DSIN( PHI AV ) 

CY F INT ( 4 ) =-FN( I ) *DS IN( PHI AV ) - FT ( I ) *DCOS ( PHI AV ) 

CY NEW 

RTHETAI = “1.0 * THETAI 

FINT(1) = -FN( I ) *DS IN ( RTHETAI ) + FT ( I ) *DCOS ( RTHETA I ) 
F INT ( 2 ) = FN( I ) *DCOS( RTHETAI ) + FT(I)*DSIN( RTHETAI ) 
PINT ( 3 ) = -F INT ( 1 ) 

F INT ( 4 ) = “F INT ( 2 ) 

CY 

CY 



IF( IDUMP . LT . 3 ) GO TO 3398 
WR I TE ( 6 , 2007 ) ( PINT (K) , K= 1,4) 

2007 FORMAT ( 10X , 'PINT = '.4E15.7,/) 

3398 CONTINUE 

FG(N1X)=FG(N1X ) -F INT ( 1 ) 

FG(N1Y)=FG(N1Y ) -F INT ( 2 ) 

FG(N2X)=FG(N2X)-FINT(3) 

FG( N2Y )=FG(N2Y ) -F INT ( 4 ) 

CX 11=11+1 

CX 12=12+1 

4544 CONTINUE 
4600 CONTINUE 
9199 CONTINUE 

DO 7777 d= 1 , NTOT 
7777 FG(d)=FG(d)+FGL(d) 

C 

C APPLY DISPLACEMENT BOUNDARY CONDITIONS 
C 

I F ( IDUMP . LT . 4 ) GO TO 521 
WRITE ( 6 , 5003 ) ITER , NDBC , MAXBW 

5003 FORMAT ( 5X ,'ITER= / ,I3,' NDBC=',I3,' MAXBW= ' ,13,/) 

WR I T E ( 6 . 5004 ) (DINC ( I ) , I = 1 , NDBC ) 

5004 F0RMAT(5X, 'DINC = '.3E15.7) 

WR I T E ( 6 , 5005 ) ( NDOF ( I ) , I = 1 , NDBC ) 

5005 F0RMAT(5X, 'NDOF = ',1015) 

WR I TE ( 6 , 70 13) 

7013 FORMAT (//.20X, 'GLOBAL LINEAR STIFFNESS MATRIX',//) 

WRITE (6 , 7040) ( ( KGS ( 1 1 , JJ) , dd = 1 .MAXBW) .11 = 1 .NTOT) 

7040 FORMAT ( 4 ( 5X , E 1 5 . 7 ) ) 

521 CONTINUE 

IF (NDBC . EO.O) GO TO 44 
I F ( ITER . GT . 1) GO TO 43 
DO 9999 K= 1 , NDBC 
C 

C SUBTRACT DISPLACEMENTS ABOVE DIAGONAL 
C 

<J J=NDOF ( K ) 

11 = 1 

97 IF(dJ.GT. MAXBW) GO TO 95 

CX IF ( IDUMP .LT. 3 ) GO TO 2345 

CX WRITE ( 6 , 2344 ) FG( 1 1 ) , KGS( 1 1 , JJ ) , DPMINC(K) 

CX 2344 FORMAT*/, 'A-BEFORE: FG(II)= ' , E 1 4 . 7 , 5X , ' KGS ( 1 1 . Ud ) = '.E14.7, 
CX 1 5X, 'DPMINC(K)= '.E14.7,/) 

CX 2345 CONTINUE 

FG(II) = FG(II) - KGS(II.dd) * DPMINC(K) 

CX IF ( IDUMP .LT. 3 ) GO TO 2347 

CX WRITE (6 , 2346 ) FG( 1 1 ) , KGS( 1 1 , dd ) , DPMINC(K) 

CX 2346 FORMAT(/, 'A-AFTER: FG(II)= ' . E 14 . 7 , 5X , ' KGS( 1 1 . dd ) = '.E14.7, 
CX 1 5X , ' DPMINC ( K ) = '.E14.7,/) 

CX 2347 CONTINUE 

95 11=11+1 

98 d d = d d~ 1 

I F ( dd . GT . 1 ) GO TO 97 
C 

C SUBTRACT DISPLACEMENTS BELOW DIAGONAL 
C 

dd=NDOF (K ) 

I I =NDOF ( K ) + 1 
LL = 2 

CX IF ( IDUMP .LT. 3 ) GO TO 3345 

CX WRITE ( 6 , 3344 ) FG( I I ) , KGS ( dd , LL ) f DPMINC(K ) 

CX 3344 FORMAT(/, ' B-BE FORE : FG(II)= ' , E 1 4 . 7 . 5X , ' KGS (II , d J ) = '.E14.7, 
CX 1 5X , ' DPMINC ( K ) = ',E14.7./> 

CX 3345 CONTINUE 

96 FG(II) = FG(II) - KGS(dd.LL) * DPMINC(K) 

CX IF ( IDUMP .LT. 3 ) GO TO 3347 

CX WRITE (6, 3346) FG( I I ) , KGS ( dd , LL ) . DPMI NC(K ) 

CX 3346 FORMAT(/, 'B-AFTER: FG(II)= ' , E 14 . 7 , 5X . ' KGS ( 1 1 . dd ) = '.E14.7, 
CX 1 5X , 'DPMINC(K)= '.E14.7,/) 

CX 3347 CONTINUE 
11=11+1 
LL=LL+ 1 

I F ( 1 1 . GT . NTOT ) GO TO 9999 
IF(LL.LE. MAXBW) GO TO 96 
9999 CONTINUE 

DO 9994 K= 1 , NDBC 
dd=NDOF (K ) 

9994 FG(dd)=DPMINC(K) 

GO TO 44 

43 DO 9998 K=1,NDBC 



9998 FG( NDOF ( K ) ) =0 . 

44 CONTINUE 

IF( IDUMP.LT. 3) GO TO 6666 
IRIGHT = 1 

I F ( I RIGHT . NE . 1 ) GO TO 6666 
WR ITE ( 6 , 2014 ) 

2014 FORMAT (//, 20X , 'RIGHT HAND SIDE MATRIX',//) 

WR ITE ( 6 , 2015 ) ( FG( I ) , I = 1 . NTOT ) 

2015 FORMAT ( 30X , E 1 5 . 7 ) 

6666 CONTINUE 

RETURN 

END 

C 

c***************************************************************** 

c 

C SUBROUTINE BANDWD 

C 

C THIS ROUTINE DETERMINES THE BAND WIDTH OF THE STIFFNESS 

C MATRIX 

C 

C********************************************** ******************* 

c 


SUBROUTINE BANWD ( MODE L , NE LEMS , NCON , NDOFPN , MAXBW t IDUMP) 
DIMENSION NCON( 1500,3) 

MAXBW=0 

DO 10 0=1 .NELEMS 
KA=NCON(U, 1 ) 

KB=NCON( J , 2 ) 

KC=NCON ( J , 3 ) 

I F ( MODEL . LE . 3 ) GOTO 2 
KAA=NCON( J , 4 ) 

KBB =NCON (0,5) 

KCC=NCON (0,6) 

2 KAMB= I ABS( KA-KB ) 

KAMC = I ABS ( KA-KC ) 

KBMC= I ABS ( KB-KC ) 

IF(MODEL. LE .3) GOTO 3 
KAMAA=I ABS(KA-KAA ) 

KAMBB=I ABS(KA-KBB ) 

KAMCC= I ABS ( KA-KCC ) 

KBMAA= I ABS ( KB -K A A ) 

KBMBB=IABS(KB-KBB) 

KBMCC=I ABS( KB-KCC ) 

KCMAA=I ABS( KC-KAA ) 

KCMBB=I ABS ( KC-KBB ) 

KCMCC= I ABS( KC-KCC ) 

3 I CK= ( MAX0( KAMB , KAMC , KBMC ) + 1 )*NDOFPN 
I F (MODEL . LT . 4 ) GO TO 1430 

ICK= ( MAX0(KAMB , KAMC , KBMC , KAMAA , KAMBB , KAMCC , KBMAA , 

* KBMBB , KBMCC , KCMAA , KCMBB , KCMCC )+ 1 ) *NDOFPN 

1430 CONTINUE 

I F (MAXBW . LT . ICK) MAXBW=ICK 
10 CONTINUE 

I F ( IDUMP . LT . 2 ) GOTO 15 
WR I TE ( 6 , 20) MAXBW 

20 F0RMAT(/10X, 'THE MAXIMUM SEMI -BANDWIDTH IS', 13) 

15 CONTINUE 
RETURN 
END 


C 

C* * 
C 

c 

c 

c* * 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


***********************, 4t ** + ** + * 4 .****** 1 , ( ***,^ lf * + * 14( * 1 ^ + 1(c ^ lls]4t + # ^^ 
SUBROUTINE BANDSOL 

*************************************************************** 

SYMMETRIC BAND MATRIX EQUATION SOLVER. GAUSS-DOOLITTLE 
METHOD SOLVES EQUATIONS (AK)(X)=R 

AK = SYMMETRIC BANDED COEFFICIENT MATRIX STORED IN 
COMPACTED FORM 
R = RIGHT HAND SIDE MATRIX 
NEQ = NUMBER OF EQUATIONS BEING SOLVED 
IBAND = SEMI-BANDWIDTH OF EQUATIONS BEING SOLVED 
MAXEQ = NO. OF ROWS FOR WHICH AK AND R ARE DIMENSIONED 
(MAX EQUATIONS) 

MAXBND = NO. OF COLUMNS FOR WHICH AK IS DIMENSIONED 
(MAX BANDWIDTH) 

KKK = 1 TR I ANGULAR 1 2ES THE SYMMETRIC, BANDED MATRIX AK 

AND OVERWRITES IT INTO AK (HENCE, AK IS 
DESTROYED AND IS REPLACED BY ITS TR I ANGULAR 1 2 ED 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 


FORM). NOTE THAT R IS NOT NEEDED. 

KKK = 2 OBTAINS SOLUTION TO (AK)(X)=R FOR A PARTICULAR 
RIGHT-HAND-SIDE R (ASSUMES THAT TR I ANGULARI ZED 
FORM OF AK IS STORED IN AK). SOLUTION IS 
RETURNED IN R. 

KKK = 3 PERFORMS BOTH FORWARD ELIMINATION AND BACK 
SUBSTITUTION AT THE SAME TIME 

NOTE FOR SOLUTION OF SEVERAL SETS OF EQUATIONS WITH SAME 

LEFT SIDE (AK) BUT DIFFERENT RIGHT SIDES (R), THE 
FIRST SOLUTION SHOULD BE OBTAINED WITH KKK=3 (OR 
KKK= 1 AND KKK=2 ) . SUBSEQUENT SOLUTIONS WITH NEW 
RIGHT-HAND-SIDES REQUIRES ONLY CALLING BANSOL WITH 
KKK = 2 (TRIANGULARIZED AK AND NEW R NEEDED). 
WARNING--THIS PROGRAMS ASSUMES THAT AK IS POSITIVE 

DEFINITE AND DIAGONALLY DOMINANT. NO PIVOTING OR 
CHECKING FOR ZERO DIAGONAL ELEMENTS IS PERFORMED. 
SEE W.E. HAISLER IF YOU HAVE PROBLEMS 

SUBROUT I NE BANSOL ( AK , R , NEQ , I BAND , MAXEQ , MAXBND , KKK ) 

IMPLICIT REAL*8 (A-H.O-Z) 

DIMENSION AK( MAXEQ, MAXBND) , R( MAXEQ) 

NRS = NEQ - 1 
NR = NEQ 

GO TO (100,200,100), KKK 

PERFORM TR I ANGULARI Z AT ION OF AK 
100 DO 120 N= 1 ,NRS 
M = N - 1 

MR = MIN0( I BAND , NR-M ) 

PIVOT = AK( N , 1 ) 

DO 120 L = 2 , MR 
CP = AK(N, D/PIVOT 
I = M + L 
J = 0 

DO 1 10 K=L , MR 
J = d + 1 

110 AK( I , d ) = AK ( I , J ) - CP * AK ( N , K ) 

120 AK(N,L) = CP 

IF (KKK.EQ. 1 ) RETURN 

FORWARD ELIMINATION OF R 
200 DO 220 N= 1 ,NRS 
M = N - 1 

MR = MINO( I BAND , NR-M ) 

CP = R(N) 

R ( N) = CP/AK(N, 1 ) 

DO 220 L = 2 , MR 
I = M + L 

220 R( I ) = R( I ) - AK( N , L ) *CP 

BACKWARD SUBSTITUTION TO OBTAIN SOLUTION 
R ( NR ) = R( NR )/ AK(NR , 1 ) 

DO 320 1=1 , NRS 
N = NR - I 
M = N - 1 

MR = MIN0(IBAND,NR-M) 

DO 320 K=2 , MR 
L = M + K 

320 R(N) = R(N) - AK (N,K)*R(L) 

400 RETURN 
END 


C 

C 

C SUBROUTINE ASEMBL 

C 

C 


SUBROUTINE ASEMBL ( AK , BK , NPE , NNCON , NDOFPN , II ) 
IMPLICIT REAL*8(A-H,0-Z) 

REAL*8 AK( 2400, 600) , BK( € , 6 ) 

DIMENSION NNCON( 1500,3) 


c > FIRST THE R0WS 

DO 10 dd = 1 , NPE 

NROW = ( NNCON( I I , J J ) - 1 )*NDOFPN 
DO 10 J = 1, NDOFPN 
NROW = NROW + 1 
I = ( JJ-1 ) *NDOFPN + d 

C > THEN THE COLUMNS 

DO 10 KK = 1 , NPE 

NCOLB = ( NNCON (II, KK ) - 1 )*NDOFPN 
DO lO K = 1, NDOFPN 
L = ( KK- 1 ) *NDOFPN + K 



NCOL = NCOLB + K + 1 - NROW 

c > DO NOT STORE BELOW DIAGONAL 

IF ( NCOL .LE. O ) GO TO 10 

AK ( NROW . NCOL ) = AK ( NROW , NCOL ) +BK ( I . L ) 

10 CONTINUE 
RETURN 
END 
C 

£********************************** 4 ^*************************** 

c 

c SUBROUTINE STRESS 

C 

C THIS SUBROUTINE CALCULATES STRESSES AND STRAINS 

C 

£*************************************************************** 

C 

SUBROUTINE STRESS ( NODE . DS . DE . DELTAQ ) 

IMPLICIT REAL*8(A-H,0-Z) 

REAL *8 8(3,6) , DET ( 1500.3) ,DST( 1 500 . 4 ) , DE LTAG( 2400 ) 

REAL *8 DE ( 1500,3 ) , DS( 1 500 . 4 ) ,C(3, 3 ) ,T( 1500) . A 1 ( 1200) , A2( 1200) 
COMMON/E LAS 1/S( 1500,4 ) , E( 1500,3) . E0( 1500,3 ) , DSTRAN( 3 ) , 

1 DSTRES(4) 

COMMON/ AREA7/N5TE , INCR, ITER 

COMMON/P LAS 1 / ALPHA ( 4 , 1500) ,EPBAR( 1500) ,SIGBAR( 1500) , 

1 I PLAS ( 1500) , EPSP ( 1 500, 4),DEPSPT( 1500,4), 

2 DEPSP( 1500,4) 

INTEGER NODE ( 1 500 , 3 ) , MATSET ( 1500) ,MTYPE( 1500) 
COMMON/CHIST/RTOL , NN , NEL , NF , NDBC , I DUMP, I PR I , ISREF, 

1 IEQUIT, ITEMAX, I TEMP, 1 1 NT 

COMMON/ ARE A 1/B 
C0MM0N/AREA5/T , MATSET , MTYPE 
COMMON/ AREA6/ A 1 , A2 
COMMON/AREA 10/DST , DET 
COMMON/HOMOG/SI G 1 A V , DEBAR 1 1 
V0LUME=0 . 

S I G 1 AV=0 . 

DO 9999 1=1 , NEL 
C CALCULATE STRAINS 

CALL SHAPE ( I , I DUMP , AREA ) 

N1=N0DE( I . 1 ) 

N2=N0DE ( 1,2) 

N3=N0DE (1,3) 

0 1 =DELT AQ( 2*N 1 - 1 ) 

Q2=DE LT A0( 2*N 1 ) 

Q3=DELTAQ(2*N2-1 ) 

04=DE LT AQ( 2*N2 ) 

Q5=DELTAQ(2*N3-1 ) 

Q6=DELTAQ( 2*N3 ) 

DE( I , 1 )=B( 1 , 1 )*Q1+B( 1 , 3)*Q3+B( 1 , 5 )*Q5 
DE ( I , 2)=B(2,2)*Q2+B(2, 4 ) *Q4+B ( 2 , 6 ) *06 

DE ( I , 3 ) *B( 3 , 1 )*Q1+B(3, 2)*Q2+B(3, 3 )*Q3+B(3,4 )*Q4+B(3 ,5)* 

1 Q5+B(3,6)*Q6 

DO 93 U=1 ,3 

E(I,J)=E(I,d) + DE(I.ii) 

93 DET (I ,J)=DET(I ,J)+DE(I # d) 

I F (MTYPE ( I ) . EQ . 1 ) GO TO 451 
I F (MTYPE ( I ) . EQ . 2 ) GO TO 452 
IF(MTYPE(I) . EQ . 3 ) GO TO 453 
I F (MTYPE ( I ) . EQ . 4 ) GO TO 454 

450 WRITE ( 6 , 6003 ) 

6003 FORMAT ( 10X , * MATERIAL TYPE NOT IN CURRENT LIBRARY',/) 

STOP 

451 CALL ELAS2D(I ,C,DS,MATSET( I ) ) 

GO TO 455 

452 CALL PLAS2D( I ,C,DS,0, MATSET ( I ) ) 

GO TO 455 

453 CALL VPLAS2D ( I , C , DS , O , MATSET ( I ) ) 

GO TO 455 

454 GO TO 450 

455 CONTINUE 

DO 94 d=1 ,4 

EPSP (I,J)=EPSP(I , d)+DEPSP(I ,d) 

S(I,d)=$(I ,J)+DS(I , J ) 

DEPSPT ( I , d ) =DEPSPT ( I ,d)+DEPSP(I ,d) 

94 DST ( I , d ) =DST ( I , d ) +DS ( I , d ) 

VOLUME=VOLUME+AREA*T ( I ) 

S IG 1 AV = SI G 1 AV+S ( I , 1 ) * AREA*T ( I ) 

9999 CONTINUE 

S IG 1 AV = SI G 1 A V/ VOLUME 
RETURN 



END 


C 

C* *******************************++*****+***+*+**+*++*+++++++ 

c 

c SUBROUTINE PLAS2D 

C 

£****** '****************************************************** 
c 

C THIS IS A CONSTITUTIVE PACKAGE FOR RATE INDEPENDENT 
C CLASSICAL PLASTICITY... 

C THIS PROGRAM DRIVES AN INCREMENTAL CONSTITUTIVE ROUTINE 
C IN THE FORM DS=(C)DEC THIS ROUTINE USES RATE INDEPENDENT 
C INCREMENTAL PLASTICITY THEORY 

C TO DETERMINE THE STRESS INCREMENT FOR A GIVEN STRAIN INCREMENT 
C OF A 2-D MATERIAL POINT UNDER PLANE STRAIN CONDITIONS 
C 
C 

SUBROUTINE PLAS2D ( J , C , DS , IPC, MATNO) 

IMPLICIT REAL*8 (A-H.O-Z) 

DIMENSION STRESS ( 4 ) , STRA I N( 3 ) , SG ( 4 ) , DDE PSP ( 4 ) , 

1 DFDS ( 6 ) ,DDFDS(6).DEPSE(3), DSG ( 4 ) , SOLD(4) , 

2 EOLD ( 3 ) 

DIMENSION C(3, 3) , DST ( 1500,4) ,DS( 1500,4 ) , DET ( 1500,3) 
COMMON/ELAS 1 /S ( 1500,4) , E( 1500,3), E0( 1 500 , 3 ) , DSTRAN( 3 ) , 

1 OSTRE S( 4 ) 

C0MM0N/ELAS2/EM 1(4), EM2( 4 ) , VNU (4),G12(4),Y1(4),Y2(4),Y(4), 
1 EM( 4 ) 

COMMON/PL AS 1 / ALPHA ( 4 , 1500) ,EPBAR( 1500) ,SIGBAR( 1500) , 

1 I PLAS ( 1 500 ) , EPSP ( 1500,4) ,DEPSPT( 1500,4), 

2 DEPSP( 1500,4) 

COMMON/PL AS2/ SX ( 10,4) , EX ( 10,4) ,EPX( 10,4) , 

1 SP( 10,4) .DEPSAL, BETA 

COMMON/BB/NUNI AX ( 4 ) , IDUMP2 , I SUB 
COMMON/ ARE A 10/D ST , DET 
COMMON/ AREA7/NSTE , INCR , ITER 
CX EMI 1=EM1 (MATNO ) 

CX EMI2=EM2(MATN0) 

CX VNUI12=VNU( MATNO) 

CX VNUI2 1 =VNUI 1 2*EMI 2/EM1 1 

CX RG1 2=G 1 2 ( MATNO ) 

CX YI1=Y1 (MATNO) 

CX YI2=Y2(MATN0) 

EMI =EM( MATNO) 

VNU I = VNU ( MATNO ) 

YI=Y (MATNO) 

DO 11 1=1,3 
DEPSP(«J , I )=0. 

STRESS( I)=S(d,I) 

STRAIN( I)=EO(d,I) 

DSTRAN( I)=E(d,I)-EO(d,I) 

11 CONTINUE 

DEPSP(d,4)=0. 

STRESS ( 4 )=S(«J,4) 

C1=EMI/( 1 ,+VNUI ) 

C2=C 1 /( 1 .-2. *VNUI ) 

Dll =C2* ( 1 . -VNUI ) 

D12=VNUI*C2 
D44=C 1/2 . 

DSG( 1 )=D1 1*DSTRAN( 1 )+D 1 2*DSTRAN( 2 ) 

DSG( 2 ) =D 1 2*DSTRAN( 1 ) +D 1 1 *DSTRAN( 2 ) 

DSG( 3 )=044*DSTRAN( 3 ) 

DSG( 4 ) =D 1 2* ( DSTRAN ( 1 )+DSTRAN(2) ) 

DO lO 1=1,4 

10 SG( I ) =STRESS( I )+DSG( I ) 

F=.5*((SG( 1 ) -ALPHA ( 1 , d ) -SG( 2 )+ ALPHA ( 2 , J ) ) * *2+ ( SG( 2 ) - 

1 ALPHA ( 2 , d ) - SG( 4 ) +ALPHA ( 4 , J ) ) * * 2 

2 +(SG(4)-ALPHA(4,d)-SG( 1 )+ALPHA( 1 , d ) ) * *2+6 . * ( SG( 3 ) - 

3 ALPHA(3,d) )**2)-SIGBAR(d)**2 
IF(DABS(F).LT. 10.0) F=0.0 
IDUMP3=0 

I F ( I0UMP3 . EO . O ) GO TO 6004 
WR I T E ( 6 , 6000 ) 

6000 FORMAT ( ' './. 3X . ' STRESSES TO PLAS2D ARE ' , 3X , ' STRA I NS ' . 3X , 

1 'STRAIN INCREMENTS',//) 

DO 6001 1=1,3 

WR I T E ( 6 , 6002 ) S ( d , I ) , E ( d , I ) , DST RAN ( I ) 

6002 FORMAT ( ' ' . 3X , 3 ( E 1 3 . 6 , 3X ) ) 

6001 CONTINUE 
6004 CONTINUE 

I0UMP4=O 



I F ( IDUMP4 . EQ . O) GO TO 6005 
WR I T E ( 6 , 6003 ) SIGBAR(J),F 

6003 FORMAT ( ' ' ,/.3X, 'SIGBAR=' ,E13.6,3X,'F=',E13.6,/) 

6005 CONTINUE 

I F ( F ) 20,30,40 
20 I PLAS ( J ) = 1 
GO TO 2000 
30 I PLAS ( J ) =2 
2000 DO 3000 1=1,4 

DSTRES( I )=DSG( I ) 

DS(<J , I ) =DSTRES( I ) 

3000 STRESS( I )=STRESS( I ) +DSTRES ( I ) 

DO 3001 1=1,3 

STRAIN( I )=STRAIN( I )+DSTRAN( I ) 

3001 E0( J, I )=E( J, I ) 

12 CONTINUE 

C( 1 , 1 ) =D 1 1 
C( 1 , 2)=D12 
C( 1 ,3)=0.0 
C ( 2 , 1 ) =C( 1 ,2) 

C ( 2 , 2 ) =C ( 1,1) 

C ( 2 , 3 ) =0 . O 
C ( 3 , 1 ) =0 . 0 
C ( 3 , 2 ) =0 . O 
C ( 3 , 3 ) =D44 
RETURN 
40 CONTINUE 

DO 4020 1=1,3 
SOLD ( I ) =STRESS ( I ) 

4020 EOLD( I )=STRAIN( I ) 

SOLD (4 )=STRESS(4 ) 

IF( IPLAS(J) . GT . 1 ) GO TO 1000 
SMA 1 =STRESS( 1 ) -ALPHA ( 1 , J) 

SMA2=STRESS( 2 ) -ALPHA ( 2 , J ) 

SMA3=STRESS( 3 ) -ALPHA ( 3 , J ) 

SMA4=STRESS(4 ) -ALPHA (4 , J) 

A = 2 . *DSG( 1 ) * *2+2 . *DSG(2)**2-2 . *DSG( 1 )*DSG(2 ) 

1 +6. *DSG( 3 ) **2+2 . *DSG(4)**2 

2 -2. *DSG(2)*DSG(4)-2. *DSG( 1 )*DSG(4) 

B=4 . *SMA1*DSG( 1 ) + 4 . *SMA2*DSG( 2 )+4 . *SMA4*DSG(4 ) 

1 -2 . *SMA2*DSG( 1 ) -2 . *SMA4*DSG( 1 ) 

2 -2. *SMA1*DSG(2)-2. *SMA4*DSG(2) 

3 -2 . *SMA 1*DSG(4)-2 . *SMA2*DSG(4) 

4 +12. *SMA3*DSG( 3 ) 

CC = 2 . *SMA 1 * *2+2 . *SMA2**2+2 . *SMA4**2 

1 -2 . *SMA 1 *SMA2-2 . *SMA1*SMA4 

2 -2 . *SMA2*SMA4+6 . *SMA3**2 

3 -2 . *SIGBAR( J ) * *2 
ROOT =B**2-4 . *A^CC 

I F ( ROOT . LE . O . 0 ) ROOT=0.0 
ZETA= ( -B+DSORT ( ROOT ) )/2 . /A 
DO 500 1=1,3 

STRESS ( I)=STRESS(I )+ZETA*DSG( I ) 

500 STRAIN(I )= STRAIN ( I ) +ZETA*DSTRAN( I ) 
STRESS(4)=STRESS(4)+ZETA*DSG(4) 

DO 50 1=1,3 

50 DSTRAN(I)=(1.-ZETA)*D$TRAN(I) 

GO TO lOOl 

1000 ZETA=0 . 

1001 CONTINUE 
IF(ISUB.NE.O) GO TO 3030 

DE=(4./3. *(DSTRAN( 1 )**2+DSTRAN(2)**2+DSTRAN( 1 )^DSTRAN(2) 
1 +DSTRAN(3)**2))**.5 

M=DE/DEPSAL+ . 1 
IF(M.EQ.O) M= 1 
DO 400 1=1,3 

400 DSTRAN( I )=DSTRAN( I )/M 
GO TO 3090 

3030 M= 1 
3090 CONTINUE 

NPSUB= 1 

I F (NPSUB . EQ . 1 ) GO TO 3032 
WRITE (6,3031) M 

3031 FORMAT ( ' ' f //,3X,'N0. OF SUBINCREMENTS = 13 ,//) 

3032 CONTINUE 

DO 5000 NSUB= 1 , M 
I J= 1 

1002 IF(EPBAR(J) . LE .( EPX( I J.MATNO)- .0000002 ) ) GO TO 1010 
I F ( I J . GT . NUNI AX ( MATNO ) ) GO TO 1003 

IJ=I J+1 



GO TO 1002 
1003 WR I TE ( 6 , 7001 ) 

7001 FORMAT ( 10X , ' STOP - EPBAR IS TOO BIG') 

WR ITE ( 6 , 7019 ) MAT NO , J , EPBAR( 0 ) 

7019 FORMAT( 10X, 'MATERIAL NO. ',13, 

1 2X, 'ELEMENT NO. '.I3./.10X, 

2 'EPBAR = ' .E15.7,/) 

STOP 

1010 IF(IJ.EQ. 1 ) I J = 2 

HPRIME=2./3. * ( SP ( I J , MATNO )-SP(IJ-1 , MATNO ) ) 

1 / (EPX( IJ,MATNO)-EPX( IJ-1 , MATNO ) ) 

DFDS ( 1 )=2 . ♦(STRESS* 1 )- ALPHA ( 1 , J ) ) -STRESS ( 2 )+ALPHA ( 2 , J ) 

1 -STRESS ( 4 ) +ALPHA (4,0) 

DFDS(2)=2. *(STRESS(2) -ALPHA (2,J))-STRESS( 1 )+ALPHA( 1 . J) 

1 -STRESS(4)+ALPHA(4,J) 

DFDS ( 3 ) =2 . ♦(STRESS* 4) -ALPHA* 4, J))-STRESS( 1 )+ALPHA( 1 , J) 

1 -STRESS ( 2 ) + ALPHA ( 2 , J ) 

DFDS ( 4 ) =0 . 

DFDS ( 5 ) =0 . 

DFDS ( 6 ) =6 . ♦*STRESS*3) -ALPHA ( 3 , J ) ) 

DDFDS( 1 ) =D 1 1 ♦DFDS ( 1 ) +D 1 2*DFDS( 2 )+D 1 2 ♦DFDS ( 3 ) 
DDFDS(2)=D12*DFDS( 1 )+D1 1 *DFDS( 2 )+D 1 2 ♦DFDS ( 3 ) 

DDFDS( 3)=D12^DFDS( 1 ) +D 1 2*DFDS ( 2 )+D 1 1 ♦DFDS* 3) 

DDFDS ( 4 ) =D44 ♦DFDS ( 4 ) 

DDFDS(5)=D44*DFDS(5) 

DDFDS (6 ) =D44*DFDS ( 6 ) 

SDFDS=DFDS( 1 ) * *2+DFDS ( 2 ) ♦♦2+DFDS( 3 ) * ♦2+DFDS ( 4 ) * ♦2+DFDS ( 5 ) * * 2 
1 +DFDS(6 )**2 

DFDDF=DDFDS( 1 )#DFDS( 1 ) +DDFDS (2)*DFDS(2) +DDFDS (3)*DFDS(3) 

1 +DDFDS (4)*DFDS(4 )+DDFDS( 5)*DFDS(5) +DDFDS (6)*DFDS(6) 

DENOM=HPRIME*SDFDS+DFDDF 
Cl 1=D1 1 -DDFDS ( 1 ) *DDFDS * 1 ) /DENOM 
012=0 1 2 -DDFDS ( 1 ) ♦DDFDS ( 2 ) /DENOM 
C 1 3=D 1 2 -DDFDS ( 1 )*DDFDS(3)/DEN0M 
C 14= -DDFDS ( 1 )*DDFDS(4) /DENOM 
C15=-DDFDS( 1 ) *DDFDS ( 5 ) /DENOM 
C16=-DDFDS( 1 ) *DDFDS ( 6 ) /DENOM 
C22=D 1 1 -DDFDS ( 2 ) * *2/DEN0M 
C23=D 1 2-DDFDS( 2 ) *DDFDS ( 3 ) /DENOM 
C24= -DDFDS ( 2 ) *DDFDS ( 4 ) /DENOM 
C25= -DDFDS ( 2 ) *DDFDS ( 5 ) /DENOM 
C26=-DDFDS(2 )*DDFDS(6 ) /DENOM 
C33 = D 1 1 -DDFDS ( 3 ) * * 2/DENOM 
C34= -DDFDS ( 3 ) *DDFDS ( 4 ) /DENOM 
C35= -DDFDS ( 3 ) *DDFD$ ( 5 ) /DENOM 
C36= -DDFDS ( 3 ) *DDFDS ( 6 ) /DENOM 
C44=D44 -DDFDS ( 4 ) * * 2/DENOM 
C45= -DDFDS ( 4 ) *DDFDS ( 5 ) /DENOM 
C46= -DDFDS ( 4 ) *DDFDS ( 6 ) /DENOM 
C 55 =D44 -DDFDS ( 5 ) * * 2/DENOM 
C56= -DDFDS ( 5 ) *DDFDS ( 6 ) /DENOM 
C66=D44 -DDFDS ( 6 ) * * 2/DENOM 
C ( 1 , 1 )=C1 1 
C( 1 , 2 ) =C 1 2 
C( 1 , 3 ) =C 16 
C ( 2 , 1 )=C( 1 ,2) 

C ( 2 , 2 ) =C22 
C ( 2 , 3 ) =C26 
C(3, 1 )=C( 1 ,3) 

C ( 3 , 2 ) =C (2,3) 

C ( 3 , 3 ) =C66 
I F ( I PC . EO . 1) RETURN 

DSTRESC 1 ) =C 1 1 *DSTRAN ( 1 )+C 1 2^DSTRAN( 2 )+C 1 6*DSTRAN( 3 ) 

DSTRES( 2 ) =C 12*DSTRAN( 1 )+C22*DSTRAN( 2 )+C26*DSTRAN( 3 ) 
DSTRES(3)=C 16^DSTRAN( 1 )+C26*DSTRAN( 2 )+C66*DSTRAN( 3 ) 
DSTRES(4)=C13*DSTRAN( 1 )+C23*DSTRAN( 2 )+C36*DSTRAN( 3 ) 

DDEPSP( 1 ) =DSTRAN( 1 )~DSTRES( 1 )/EMI+VNUI *DSTRES ( 2 ) /EMI 
1 +VNUI*DSTRES(4)/EMI 

DDEPSP( 2 )=DSTRAN(2 )+VNUI *DSTRES( 1 )/EMI -DSTRES ( 2 ) /EMI 
1 +VNUI ♦DSTRES (4 )/EMI 

DDE PSP ( 3 ) =DSTRAN( 3 ) - 2 . * ( 1 . +VNUI ) ♦DSTRES ( 3 ) /EMI 
DDEPSP(4)=0.+VNUI ♦(DSTRES ( 1 )+DSTRES( 2 ) )/EMI 
1 -DSTRES(4)/EMI 

DO 1050 1=1,4 

DEPSP( J, I )=OEPSP(U, I ) +DDEPSP ( I ) 

1050 DEPSE ( I ) =DSTRAN( I ) -DEPSP ( J , I ) 

DEPBAR=(2./9 . ♦ ( (DDEPSP ( 1 ) -DDEPSP( 2 ) ) ♦ *2 

1 + ( DDEPSP ( 2 ) - DDE PSP ( 4 ) ) ♦♦ 2+ ( DDEPSP ( 4 ) -DDEPSP ( 1 ) )**2 

2 -*-6 . * ( DDEPSP ( 3 ) / 2 . )**2))**0.5 
EPBAR ( J)=EPBAR( J)+DEPBAR 



I EP=0 

IF(IEP.NE.I) GO TO 1051 

WRITE (6, 1052 )EPBAR(U) , DEPBAR , DEPSP( d , 1 ) ,DEPSP( J,2) 

1 ,DEPSP(d,3) ,DEPSP(d,4) 

1052 FORMAT ( ' ' , 3X , ' EPBAR= ' , E 1 3 . 6 , 3X , 'DEPBAR= ' , E 1 3 . 6 , 3X . 

1 'DEPSP( 1 )=' ,E13 .6, 3X, 'DEPSP(2)=' , E13.6, 3X, 

2 'DEPSP (3)=' , E 1 3 . 6 , / ) 

1051 CONTINUE 

SMA 1 =STRESS( 1 )-ALPHA( 1 ,d) 

SMA2=STRESS( 2 ) - ALPHA ( 2 , d ) 

SMA3=STRESS( 3 ) -ALPHA ( 3 , J ) 

SMA4=STRESS( 4 ) -ALPHA ( 4 , d ) 

DEN=DFDS( 1 )*SMA1+DFDS(2 )*SMA2+DFDS( 3 ) *SMA4 
1 +DFDS(6 )*SMA3 
SIGOLD=SIGBAR(d) 

DO 1060 1=1,3 

STRESS( I ) = STRESS ( I ) +DSTRES ( I ) 

1060 STRAIN( I ) =DSTRAN( I )+STRAIN( I ) 

STRESS ( 4 ) =STRESS ( 4)+DSTRES(4) 

1 = 1 

2002 I F ( EPBAR (d).LE.EPX(I, MATNO ) ) GO TO 2010 
IF( I . GT . NUN I AX ( MATNO ) ) GO TO 2003 

1 = 1 + 1 

GO TO 2002 

2003 WRITE ( 6 , 7002 ) 

7002 FORMAT ( 10X, 'STOP - EPBAR EXCEEDS LAST POINT ON CURVE') 
WRITE(6 , 7020) MATNO , d , EPBAR( d ) 

7020 FORMAT( lOX, 'MATERIAL NO. ',13. 

1 2X, 'ELEMENT NO. ',I3,/.10X, 

2 'EPBAR = ' . E 1 5 . 7 , / ) 

STOP 

2010 SIGBAR(d) = SP( 1-1 , MATNO ) + ( EPBAR ( d ) -EPX( I - 1 .MATNO) ) 

1 * ( SP ( I , MATNO ) -SP ( I - 1 , MATNO ) )/ ( EPX ( I , MATNO ) 

2 -EPX(I-1 .MATNO)) 

DS IGB = SIGB AR ( d ) -SI GOLD 

DMU=(DFDS( 1 )*DSTRES( 1 )+DFDS( 2 ) +DSTRES ( 2 )+DFDS ( 3 ) +DSTRES ( 4 ) 

1 +DFDS( 6 ) *DSTRES ( 3 ) 

2 -2. *SIGOLD*DSIGB)/DEN 
ALPHA ( 1 ,d)=ALPHA( 1 , d)+DMU*SMA 1 
ALPHA ( 2 , d ) = ALPHA ( 2 , d )+DMU*SMA2 
ALPHA ( 3 , d ) = ALPHA ( 3 , d )+DMU*SMA3 
ALPHA (4 , d ) = ALPHA ( 4 , d )+DMU*SMA4 

5000 CONTINUE 

00 5001 1=1,4 

DSTRES( I ) “STRESS ( I ) -SOLD (I ) 

5001 DS(d , I )=DSTRES( I ) 

DO 5002 1=1,3 
EO(d, I ) = E(d, I ) 

5002 DSTRAN( I ) =STRAIN( I ) -EOLD ( I ) 

IPLAS( d ) = 2 

RETURN 

END 

C 

Q**************************************************************** 

c 

C SUBROUTINE ELAS2D 

C 

£**** **************************************************** ******** 

c 

C THIS IS A CONSTITUTIVE PACKAGE FOR ISOTROPIC 
C LINEAR ELASTICITY . . . 

C TO DETERMINE THE STRESS INCREMENT FOR A GIVEN STRAIN INCREMENT 
C OF A 2-D MATERIAL POINT 
C PLANE STRAIN OR 
C ORTHOTROPIC PLANE STRESS 
C 

SUBROUTINE ELAS2D ( U , C , DS , MATNO ) 

IMPLICIT REAL*8 (A-H.O-Z) 

DIMENSION STRESS ( 4) ,STRAIN(3) , SG( 4 ) , 

1 DSG( 4 ) , C ( 3 , 3 ) ,DS( 1500,4) 

COMMON/CHIST/RTOL , NN.NEL ,NF , NDBC , I DUMP, IPRI , ISREF , 

1 IEOUIT, ITEMAX, I TEMP, I I NT 

C0MM0N/ELAS1/S( 1500,4) ,E( 1500,3) ,E0( 1500,3) , DSTRAN( 3 ) , 

1 DSTRES ( 4 ) 

COMMON/ E LAS 2/ EMI ( 4 ) , EM2 ( 4 ) , VNU ( 4 ) , G 1 2 ( 4 ) , Y 1 ( 4 ) , Y2 ( 4 ) , Y ( 4 ) , 

1 EM( 4 ) 

C0MM0N/AREA7/NSTE , INCR , ITER 
E 1 =EM 1 (MATNO ) 

E2 = EM2 (MATNO ) 

VNU 12=VNU( MATNO) 



VNU2 1 =VNU 1 2*E2/E 1 
RG12=G12( MAT NO ) 

Y I =Y ( MATNO ) 

YL=Y 1 (MATNO) 

YT =Y2(MATN0 ) 

DO 11 1=1,3 
STRESS( I )=S( J, I ) 

STRAIN(I)=EO(J, I ) 

DSTRAN(I )=E(J, I ) - EO( J , I ) 

11 CONTINUE 

STRESS (4)=S(J,4) 

CX C 1 = EMI / ( 1 . +VNUI ) 

CX C2 = C 1 / ( 1.-2. * VNU I ) 

CX D 1 1 =C2* ( 1 . -VNUI ) 

CX D 1 2=VNU I *C2 

CX D44=Cl/2. 

CX 

c Plane Strain 

c 

C 1 =E 1 / ( 1 . +VNU 12) 

C2 = C 1 / ( 1.-2. * VNU 1 2 ) 

D 1 1 =C2* ( 1 .-VNU12) 

D 1 2 = VNU 1 2 *C2 
D2 1=D12 
D22=D 1 1 
D44=C1/2. 
cy 

c Plane Stress 

cx 

CX Dll =E 1/(1 .0“VNU12*VNU21 ) 

CX D 1 2 =VNU2 1 *D 1 1 

CX D22=E2/( 1 . O - VNU 1 2* VNU2 1 ) 

CX D2 1 =D 1 2 

CX D44 = RG 1 2 

C 

CX 

DSG( 1 ) =D 1 1 *DSTRAN ( 1 )+D 1 2*DSTRAN( 2 ) 

DSG( 2 ) =D2 1 *DSTRAN( 1 )+D22*DSTRAN( 2 ) 

DSG( 3 ) =D44*DSTRAN( 3 ) 

DSG(4 ) =D 1 2* (DSTRAN( 1 )+DSTRAN(2) ) 

CX DSG( 4 ) = 0.0 

DO 10 1=1 .4 

10 SG( I )= STRESS ( I ) +D$G( I ) 

C 

C REDUCE TRANSVERSE STIFFNESS UPON MATRIX CRACK INITIATION 

C 

51 = ( ( SG( 1 ) - SG( 2 ) ) / 2.0 ) **2 

52 = SG( 3 ) **2 
S3S3 = SI + S2 

53 = SORT ( S3S3 ) 

SP 1 = ( SG( 1 ) + SG( 2 ) ) / 2.0 + S3 
SP2 = ( SG( 1 ) + SG( 2 ) ) / 2.0 - S3 
SPMAX = DMAX 1 ( SP1, SP2 ) 

IF ( SPMAX .GT. YL ) THEN 
CX IF ( SG( 1 ) .GT. YL ) THEN 

MATNO = 3 

WRITE (6,7000) J, INCR 

7000 FORMAT(/, 'MATRIX CRACK AT ELEMENT ',15.' DURING STEP ',15./) 
C 

c WRITE(6, 6100) 

c 6100 FORMAT ( ' 3X .' STRESSES TO ELAS2D ARE ' , 3X , ' STRAINS ' ,3X, 

c 1 'STRAIN INCREMENTS',//) 

c DO 6101 1=1,3 

c WRITE(6,6102)SG(I ) ,E(J,I ) , DSTRAN ( I ) 

c 6102 FORMAT ( ' ' , 3X , 3 ( E 1 3 . 6 , 3X ) ) 

c 6101 CONTINUE 
C 

END IF 
C 
C 

CX 
CX 
CX 
CX 
CX 

CX6495 
CX 

CX6500 
CX 


DISABLE YIELD FUNCTION 
F= . 5* ( ( SG( 1 )-SG(2) )**2+(SG(2)-SG(4) )**2 
1 + ( SG ( 4 ) - SG ( 1 ) ) * * 2+6 . * SG( 3)**2)-YI**2 

WRITE(6,6495) J 

FORMAT ( // , ' SG( 1 ) - SG(4), F,YI FOR ELEMENT: ',15,/) 

WR I TE ( 6 , 6500 ) SG(1), SG(2), SG(3), SG(4), F,YI 
FORMAT (3X,E15.4,3X,E15.4,3X,E15.4, 3X , E 1 5 . 4 , / 

1 3X,E15.5,3X,E15.5/) 



CX IF(DABS(F) .LT. 10.0) F=0.0 

CX 

IF ( IDUMP . LT . 4 ) GO TO 6004 
WR I T E ( 6 , 6000 ) 

6000 FORMAT ( ' 3X ,' STRESSES TO ELAS2D ARE 3X STRAINS 3X , 

1 'STRAIN INCREMENTS'.//) 

DO 6001 1=1,3 

WRITE (6 , 6002 )S(J,I),E(J,I), DSTRAN( I ) 

6002 FORMAT ( ' ' . 3X , 3 ( E 1 3 . 6 , 3X ) ) 

6001 CONTINUE 

6004 CONTINUE 

CX IF (IOUMP.LT. 3) GO TO 6005 

CX WRITE(6 , 6003 ) YI.F 

CX 6003 FORMAT ( ' ',/,3X,'Y = ' , E 1 3 . 6 . 3X , ' F = '.E13.6./) 

6005 CONTINUE 

CX I F ( F ) 2000,30,30 

CX 30 WRITE ( 6 , 7009 ) J 

CX 7009 FORMAT( 10X, 'ELASTIC ELEMENT NO. ',13, IX, 'HAS YIELDED'./) 
CX STOP 

2000 DO 3000 1=1,4 

DSTRES( I ) =DSG( I ) 

DS(J, I )=DSTRES( I ) 

3000 STRESS ( I ) = STRESS ( I )+DSTRES ( I ) 

DO 3001 1=1,3 

STRAIN( I ) =STRA IN ( I )+DSTRAN(I ) 

3001 E0( J, I ) = E(J, I ) 

12 CONTINUE 

C( 1 , 1 )=D1 1 
C( 1 ,2)=D12 
C( 1 ,3)=0.0 
C(2, 1 )=C( 1,2) 

C ( 2 , 2 ) =D22 
C ( 2 , 3 ) =0 . O 
C ( 3 , 1 )=0.0 
C ( 3 , 2 ) =0 . 0 
C ( 3 , 3 ) =D44 
RETURN 
END 
C 

£*********************] ****************************************** 

c 

C SUBROUTINE VPLAS2D 

C 

c 

C THIS IS A CONSTITUTIVE PACKAGE FOR RATE DEPENDENT 
C VISCOPLASTICITY USING MILLER'S MODEL 

C TO DETERMINE THE STRESS INCREMENT FOR A GIVEN STRAIN INCREMENT 
C OF A 2-D MATERIAL POINT 
C 

SUBROUTINE VPLAS2D ( U , C , DS , I PC . MATNO ) 

IMPLICIT REAL*8 (A-H.O-Z) 

DIMENSION STRESS( 4 ) , STRA IN( 3 ) , DFDS( 6 ) , DDFDS( 6 ) , 

1 SOLD (4 ) , EOLO( 3 ) 

DIMENSION C(3,3).DST( 1500,4) ,DS( 1500,4) ,DET( 1500,3) 
COMMON/CHI ST/RTOL , NN, NEL , NF , NDBC , IDUMP , I PRI , ISREF, 

1 IEOUIT, ITEMAX, ITEMP, IINT 

COMMON/E LAS 1/S ( 1500.4) , E( 1500,3) ,E0( 1500, 3 ) , DSTRAN( 3 ) , 

1 DSTRES(4 ) 

COMMON/ ELAS2/ EMI (4),EM2(4), VNU( 4 ),G12(4),Y1(4),Y2(4).Y(4), 
1 EM( 4 ) 

COMMON/PLAS 1 /ALPHA ( 4 , 1 500 ) , EPBAR ( 1 500 ) . S I GBAR ( 1 500 ) , 

1 I PLAS ( 1500) ,EPSP( 1500,4) ,DEPSPT( 1500,4) . 

2 DEPSP( 1500,4) 

COMMON/ VPL AS 1 /DT IME , DE VPAL 

COMMON/ VPLAS2/RN , HI , H2.AA1 ,AA2,C2, DO, B 1 , TEMP , TMELT , OS 
C0MM0N/BB/NUNIAX(4) , IDUMP2 , I SUB 
COMMON/AREA 10/DST , DET 
COMMON/ AREA7/NSTE , INCR , ITER 
C 

C RECALL DRAG STRESS D FROM SIGBAR ARRAY 
C 

D = SI GBAR ( J ) 

C 

C INITIALIZE PLASTIC STRAIN RATE AND STRESS RATE 
C FOR CALCULATION OF HPRIME FIRST TIME THROUGH 
C SUBINCREMENTATION LOOP 
C 

EPSPDOT 1 =DEPSP( J , 1 )/DTIME 
EPSPD0T2=DEPSP( J . 2 )/DTIME 



ooo o r> r> ooo noo non 


EPSPD0T3=DEPSP( J. 3) /DTI ME 
EPSPD0T4=DEPSP ( J , 4 ) /DTI ME 
SIGDOT 1 =DS( d , 1)/ DTI ME 
$IGD0T2=DS( d , 2 ) /DTI ME 
SXGD0T3=DS( J , 3) /DTI ME 
SIGD0T4=DS(d,4)/DTIME 

INITIALIZE SUBROUTINE STRESSES AND STRAINS 

DO 11 1=1,3 
DEPSP( J, I ) -O . 

STRESSO ) = S( J . I ) 

STRAIN( I ) =EO ( d , I ) 

DSTRAN( I )=E(d. I )-EO(d, I ) 

11 CONTINUE 

STRESS ( 4 ) =S ( d , 4 ) 

DEPSP ( d , 4 ) =0 . 

DO 4020 1=1,3 
SOLD ( I ) =STRESS( I ) 

4020 EOLD( I )=STRAIN( I ) 

S0LD(4)=STRESS(4) 

CALCULATE ELASTIC MODULUS MATRIX 

EMI =EM(MATNO) 

VNUI =VNU ( MATNO ) 

YI =Y( MATNO ) 

CC 1 =EMI / ( 1 . +VNUI ) 

CC2=CC 1 / ( 1.-2. * VNU I ) 

D 1 1 =CC2 * ( 1 . -VNUI ) 

D12=VNUI*CC2 
D44=CC 1/2 . 

SUBINCREMENTATION LOOP 

DE=(4./3.*( DSTRAN( 1 ) * * 2+DSTRAN( 2 ) * *2+DSTRAN( 1 )*DSTRAN(2) 
1 +DSTRAN(3)**2) )** .5 

M=DE/DEVPAL+ . 1 
IF(M.EQ.O) M= 1 
DO 400 1=1,3 

400 DSTRAN( I )=DSTRAN( I )/M 
DTSUB=DTIME/M 
GO TO 3090 
3090 CONTINUE 

IF( IDUMP.LT. 2) GO TO 3032 
WRITE (6,3031) M 

3031 FORMAT ( ' ',//,3X,'N0. OF SUBINCREMENTS = ',13,//) 

WRITE(6 , 3033) DE , DEVPAL 

3033 FORMAT ( 5X , ' DE = ' ,E15.7, IX, "DEVPAL = '.E15.7,/) 

3032 CONTINUE 

DO 5000 NSUB= 1 ,M 

CONSTRUCT C MATRIX 

DNUM1 =SIGDOT 1 *EPSPDOT 1+SIGD0T2*EPSPD0T2+ 

1 S IGD0T3*EPSPD0T3+SIGD0T4*EPSPDQT 4 

DEN0M1 =EPSPDOT 1 **2+EPSPD0T2**2+EPSPD0T3* *2+EPSPD0T4 **2 
I F ( INCR . EQ . 1 ) GO TO 334 
GO TO 335 

ELASTIC CASE 

334 CONTINUE 
C( 1 , 1 )=D1 1 
C( 1 , 2 ) =D 1 2 
C( 1 ,3)=0.0 
C ( 2 , 1 ) =C ( 1 .2) 

C ( 2 , 2 ) =C ( 1.1) 

C ( 2 , 3 ) =0 . O 
C ( 3 , 1 ) =0 . O 
C ( 3 , 2 ) =0 . O 
C ( 3 , 3 ) =D44 

I F ( I PC . EO . 1) GO TO 9999 

DSTRES ( 1 )=D11*DSTRAN(1 )+D 1 2*DSTRAN( 2 ) 

DSTRES(2)=D12’* C DSTRAN( 1 )+D1 1*DSTRAN(2) 

DSTRES(3) =D44*DSTRAN( 3 ) 

DSTRES(4)=D12*( DSTRAN( 1 )+DSTRAN(2)) 

SIGDOT 1=DSTRES( 1 )/DTSUB 
SIGD0T2=DSTRES( 2 )/DTSUB 
SIGD0T3=DSTRES( 3 )/DTSUB 
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SIGD0T4=DSTRES ( 4 ) /DTSUB 
UPDATE TOTAL STRESS AND STRAIN 
DO 1050 1=1,3 

STRESS ( I)=STRESS(I ) + DSTRES( I ) 

1050 STRAIN( I ) =DSTRAN( I )+STRAIN( I ) 

STRESS ( 4)=STRESS(4 )+DSTRES ( 4 ) 

GO TO 5000 
335 CONTINUE 

ELASTIC -PLASTIC CASE 

DFDS ( 1 )=2. ♦( STRESS* 1 ) -ALPHA ( 1 , d ) ) -STRESS ( 2 ) + ALPHA ( 2 , J ) 

1 -STRESS(4)+ALPHA(4, J) 

DFDS(2)=2.*(STRESS(2)-ALPHA(2,J))-STRESS( 1 )+ALPHA( 1 , J) 

1 -STRESS (4 )+ALPHA(4, J) 

DFDS(3)=2. ♦( STRESS(4)-ALPHA (4, J))- STRESS* 1 )+ALPHA( 1 , J) 

1 -STRESS ( 2 ) + ALPHA ( 2 , J ) 

DFDS ( 4 ) =0 . 

DFDS ( 5 ) =0 . 

DFDS ( 6 ) =6 . *(STRESS(3) -ALPHA ( 3 , J ) ) 

DDFDS ( 1 ) =D 1 1 ♦DFDS ( 1 )+D 1 2 ♦DFDS* 2 ) + D 1 2*DFDS( 3 ) 

DDFDS( 2)=D12*DFDS* 1 )+D1 1 *DFDS( 2 )+D 1 2 ♦DFDS ( 3 ) 
DDFDS(3)=D12*DFDS( 1 )+D 1 2 ♦DFDS ( 2 )+D 1 1 ♦DFDS* 3) 

DDFDS(4) =D44*DFDS ( 4 ) 

DDFDS ( 5)=D44*DFDS(5) 

DDFDS(6)=D44*DFDS(6) 

SDFDS=DFDS ( 1)^*2+DFDS(2 ) * * 2 + DFDS ( 3 ) * * 2+DFDS ( 4 ) * * 2+DFDSC 5 ) * 
1 +DFDS(6 ) **2 

DFDDF=DDFDS( 1 )*DFDS( 1 ) +DDFDS ( 2 ) ♦DFDS ( 2 ) +DDFDS ( 3 ) *DFDS ( 3 ) 

1 +DDFDS( 4)*DFDS(4 )+DDFDS{ 5)*DFDS(5 )+DDFDS( 6)*DFDS(6) 

I F ( DABS ( DENOM 1 ) . LT . 1 . D-20) GO TO 332 
HPRIME=DNUM 1 /DENOM 1 
GO TO 333 

332 HPRIME = 1 .OD25 

333 CONTINUE 

DENOM=HPRIME*SDFDS+DFDDF 
Cl 1 =D 1 1 -DDFDS ( 1 ) ♦DDFDS* 1 )/DENOM 
C 1 2=D 1 2 -DDFDS ( 1 ) ♦DDFDS ( 2 ) /DENOM 
C 1 3=D 1 2 -DDFDS ( 1 ) ♦DDFDS ( 3 ) /DENOM 
C 1 4=-DDFDS ( 1 )»DDFDS(4)/DEN0M 
C 15= -DDFDS ( 1 )^DDFDS(5)/DEN0M 
C 16= -DDFDS ( 1 )*DDFDS*6)/DEN0M 
C22=D 1 1 -DDFDS ( 2 ) ♦ *2 /DENOM 
C23=D 1 2 -DDFDS ( 2 ) ♦DDFDS ( 3 ) /DENOM 
C 24= -DDFDS ( 2 ) ♦DDFDS ( 4 ) /DENOM 
C25= -DDFDS ( 2 ) ♦DDFDS ( 5 ) /DENOM 
C 26= -DDFDS ( 2 ) * DDFDS ( 6 ) /DENOM 
C33=D1 1-DDFDS(3) *♦ 2/DENOM 
C 34= -DDFDS ( 3 ) ♦DDFDS ( 4 ) /DENOM 
C 35= -DDFDS* 3 ) ♦DDFDS ( 5 ) /DENOM 
C36= -DDFDS ( 3 ) * DDFDS ( 6 ) /DENOM 
C44=D44-DDFDS(4) ♦♦2/DENOM 
C45= -DDFDS ( 4 ) *DDFDS ( 5 ) /DENOM 
C46=-DDFDS(4) ♦DDFDS ( 6 )/DENOM 
C55=D44-DDFDS( 5) ♦♦2/DENOM 
C 56= -DDFDS ( 5 ) * DDFDS ( 6 ) /DENOM 
C66=D44-DDFDS(6) ♦♦ 2/DENOM 
C( 1 . 1 )=C1 1 
C( 1 , 2 ) =C 1 2 
C ( 1 , 3 ) =C 1 6 
C ( 2 , 1 )=C( 1 ,2) 

C ( 2 , 2 ) =C22 
C ( 2 , 3 ) =C26 
C ( 3 , 1 ) =C ( 1 ,3) 

C ( 3 , 2 ) =C (2,3) 

C ( 3 , 3 ) =C66 

I F ( IPC . EQ . 1 ) GO TO 9999 
I F ( IDUMP . LT . 2 ) GO TO 557 
WRITE (6, 4228 ) ( DSTRAN( I ) , 1=1 ,4) 

4228 F0RMAT(5X, 'DSTRAN = ' , 4E 1 2 . 4 ) 

557 CONTINUE 

CALCULATE STRESS SUBINCREMENT 

DSTRES ( 1 )=C1 1 ♦DSTRAN* 1 )+C 1 2 ♦DSTRAN* 2 ) +C 16 *DSTRAN* 3 ) 
DSTRES(2)=C12^DSTRAN( 1 )+C22 ♦DSTRAN* 2 ) +C26 ♦DSTRAN* 3 ) 

DSTRES ( 3 ) =C 1 6 ♦DSTRANC 1 ) + C26 ♦DSTRANC 2 )+C66 ♦DSTRAN* 3 ) 

DSTRESC 4 ) =C 1 3*DSTRAN( 1 )+C23 ♦ DSTRAN* 2 ) +C36*DSTRAN( 3 ) 
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SIGDOT 1=DSTRES( 1 )/DTSUB 
SIGD0T2=DSTRES( 2 )/DTSUB 
SIGD0T3=DSTRES ( 3 )/DTSUB 
SIGD0T4=DSTRES (4 )/DTSUB 

CALCULATE DEVIATORIC STRESS TENSOR 

SKK=STRESS( 1 )+STRESS(2)+STRESS(4) 

SD 1 =STRESS( 1 ) ~SKK/ 3 . 

SD2= STRESS ( 2 ) -SKK/3 . 

SD3=STRESS( 3 ) 

SD4=STRESS(4)-SKK/3. 

SMA 1 =SD 1 -ALPHA ( 1 , J) 

SMA2=SD2- ALPHA ( 2 , J ) 

SMA3=SD3-ALPHA(3,J) 

SMA4 = SD4- ALPHA ( 4 , J ) 

S IGE FF= ( 1 . 5* ( SMA 1 * *2 + SMA2**2 + SMA3**2 + SMA4**2 ) ) **0 . 5 

UPDATE INTERNAL VARIABLES 
USING EULER INTEGRATION 


FIRST CALCULATE PLASTIC STRAIN RATE 

IF(DABS(SIGEFF ) . LE . 1 .00-8) GO TO 301 
IF(DABS(SIGBAR( J) ) . LE . 1 .00-8) GO TO 301 
FAC4=-QS*4 . 184/0. 6/8 . 314/TMELT 
THETA =D EXP (FAC4*(DLOG(0.6*TMELT/TEMP)+1 . ) ) 

BTHETA=B1*THETA 

EPSBDOT = BTHET A * ( DSINH( ( S I GE F F/D ) * * 1 .5) )**RN 
FAC= 1 . 5* ( EPSBDOT /SIGEFF ) 

EPSDOT 1=FAC*SMA1 
EPSD0T2=FAC*SMA2 
EPSD0T3 = F AC *SMA3 
EPSD0T4 = F AC * SMA 4 
GO TO 305 
301 EPSBDOT =0 . 

EPSDOT 1 =0 . 

EPSD0T2=O . 

EPSD0T3=0 . 

EPSD0T4=0 . 

305 CONTINUE 

NEXT CALCULATE BACK STRESS RATE 

BSIGDOT 1 = ( 2 . /3 . )*H1*EPSD0T1 
BSIGD0T2=(2./3. )*H1*EPSD0T2 
BSIGD0T3=(2./3 . )*H1*EPSD0T3 
BSIGD0T4=(2./3 . )*H1*EPSD0T4 

BSIGBAR=( (3./2 . )*( ALPHA ( 1 , J ) **2+ALPHA( 2 , J ) **2 + 

1 ALPHA ( 3 , U ) * *2 + ALPHA (4,J)**2) )**0. 5 

IF(BSIGBAR.LT. 1 . OD-7 ) GO TO 306 

FAC 1 =H1 *BTHETA * ( OS INH( AA 1 *BS IGBAR ) ) * *RN/BS IGBAR 
BSIGDOT 1 =B SIGDOT 1 -FAC 1 * ALPHA ( 1 , J) 
BSIGD0T2=BSIGD0T2-FAC 1 *ALPHA ( 2 ,J) 
BSIGD0T3=BSIGD0T3-FAC1 * ALPHA (3 , J) 
BSIGD0T4=BSIGD0T4-F AC 1 * ALPHA ( 4 , J ) 

306 CONTINUE 

FIND DRAG STRESS RATE 

DD0T=H2 * EPSBDOT* ( C2+BS IGBAR- (AA2/AA1*D**3) ) 
FAC2=DSINH( AA2*D**3) 

IF(DABS(FAC2) .LT. 1 .OD-4) GO TO 307 
DD0T=DD0T-H2*C2*BTHETA*FAC2* *RN 

307 CONTINUE 

FINALLY, UPDATE ALL INTERNAL VARIABLES 

DEPSP( J, 1 ) =DEPSP ( d , 1 )+EPSD0T1*DTSUB 
DEPSP( J, 2 )=DEPSP(d. 2) + EPSD0T2*DTSUB 
OEPSP(d, 3 )=OEPSP(d, 3) + EPSD0T3*DTSUB 
DEPSP( J, 4)=DEPSP( J.4)+EPSD0T4*DTSUB 
ALPHA ( J, 1 ) = ALPHA ( J , 1 ) +BS I GDOT 1 *DTSUB 
ALPHA (U , 2 ) =ALPHA( J , 2 ) +BS I GD0T2*DTSUB 
ALPHA ( J , 3 ) -ALPHA ( J , 3 )+BS I GD0T3 *DTSUB 
ALPHA (J , 4 ) =ALPHA( J , 4 ) +BS I GD0T4*DTSUB 
D = D + DDOT *DTSUB 
S IGBAR ( J ) =D 
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UPDATE TOTAL STRESS AND STRAIN 
DO 1060 1=1,3 

STRESS ( I )=STRESS( I )+DSTRES( I ) 
1060 STRAIN( I ) =DSTRAN( I )+STRAIN( I ) 
STRESS (4)=STRESS(4 )+DSTRES( 4 ) 

5000 CONTINUE 

COMPLETE SUBINCREMENTATION LOOP - 
CALCULATE TOTAL STRESS INCREMENT 

DO 5001 1=1,4 

DSTRESCI )=STRESS( I )-SOLD( I ) 

5001 DS( J , I )=DSTRES( I ) 

CALCULATE TOTAL STRAIN INCREMENT 

DO 5002 1=1,3 
E0( J, I )=E( J, I ) 

5002 DSTRAN( I )=STRAIN( I )-E0LD( I ) 
9999 CONTINUE 

RETURN 

END 



